Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
while(<$pty>) {
  print "$. $_"
}