Help for this page

Select Code to Download

Select or download this


while (my $input = <$sock>) {
...
  print "    not a match\n"  # debugging
        }
}