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