Help for this page

Select Code to Download

Select or download this

while (<>) {
    my $val='';
...
    }
    print $val;
}