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