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


##</code><code>##

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