Select Code to Download

a.pl:
@in = <STDIN>;
...
    print "from perl script: ", $_;
}

open(DATA, "<", "ex902.pl");
@in = <DATA>;#read in as array
...
open(DATA1, ">", "data.txt");
print DATA1 @in;#flush the whole array out
close(DATA1);