Select Code to Download

#!/usr/bin/perl -w
use strict;
while (<STDIN>) {
        print "PROCESSED $_";
}

#!/usr/bin/perl -w
use strict;
...
while ($outputline = <READ>) {
        print $outputline;
}

open(RUN, "/usr/local/bin/ticket @ABC|") or die "useful error message 
+here";