Help for this page

Select Code to Download

Select or download this

sub new {
    my $package = shift;
...
        print $line;
    }
}