Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
while (<STDIN>) {
  # do something
  print "output\n";
}