Select Code to Download

open(FILE, "2.txt")
    or die("can't open myfile.txt: $!\n");

open FILEHANDLE, "> output.txt"

open FILEHANDLE, ">> output.txt"

$folder = '/tmp';
opendir TMPDIR, $folder
...

}
closedir TMPDIR;

#!/usr/bin/perl -w
# Even though W32 doesn't process the #! portion, I believe it
...
}
closedir TMPDIR;