Help for this page

Select Code to Download

Select or download this

while(<>) {
    print;
}
my $line = <>;
print "END\n";