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

#!/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;