==== Образец задания к уроку 1 ====

<code perl>
#!/usr/bin/perl

print "\nВведите Ваше имя: ";
$s = <STDIN>;
chomp ($s);

print "\n     Доброго времени суток, $s!\n";
print "\nВы хотите посмотреть, кто ранее делал то же самое? (y/n):";

$yesno = <STDIN>;
chomp ($yesno);

open (MYWRI, ">>testvisits.txt") || die "Can't open file testvisits.txt: $!";
print MYWRI $s."\n";
close(MYWRI);


if ($yesno eq 'y')
{
  open (MYREAD, "testvisits.txt") || die "Can't open file testvisits.txt: $!";
  while ($line = <MYREAD>)
  {
    print $line
  };
  close(MYREAD);
};

print "\n\n Вот и все!\n\n";
sleep 1;
</code>