Образец задания к уроку 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;