Select Code to Download

$text = file1.txt
open (DAT,"$text");
...
open (NEWDAT, ">file2.txt");
print @stuff;
close(NEWDAT);

#!/usr/bin/perl -w

...
print "File copied";
}