Help for this page

Select Code to Download

Select or download this

if(!@ARGV) {
    print <<"EOC";
...
    print FILE $file;
    close(FILE);
}