Help for this page

Select Code to Download

Select or download this

  while(1) {
      my $line = <STDIN>;
...

      chomp $line;
      if ($line =~ /^...