Help for this page

Select Code to Download

Select or download this

#! /usr/local/bin/perl -w

...
    print ($line,"\n");
    last if undef($line);
}