Help for this page

Select Code to Download

Select or download this

while (my $l = <INFILE>) {
    chomp $l;
    print $l;
}