Help for this page

Select Code to Download

Select or download this

# --------------------------------------------------------------------
+-----
...
    }
}
<p>

Select or download this

# --------------------------------------------------------------------
+-----
...
    foreach $line ( @file ) { print FILE "$line\n"; }
    close(FILE);
}