Help for this page

Select Code to Download


  1. or download this
    sub scan ($) {
        my $line = shift;
    ...
        print $line;
    }