# controlcript
open WORKER, "| workerscript.pl" or die;
print WORKER "$_\n" for @combined;
close WORKER;


# This is the worker script, entitled workerscript.pl
my @combined;
while ( <STDIN> ) {
    push @combined, $_;
}
chomp @combined;


##</code><code>##

my @combined = <STDIN>;
chomp @combined;