Help for this page

Select Code to Download

Select or download this

while (<LIST>)
{
    $filename1 = <LIST>;

Select or download this

while $filename1 (<LIST>) {
    # removing trailing newline on $filename1:
    chomp $filename1;
    ...
}