Select Code to Download

#!/usr/bin/perl
my $Pipe= "";
...

print "This was the read from the parameters:\n";
print "<@ARGV>\n";

This was read from the pipe:
<Hi
...

This was the read from the parameters:
<1 2 3 4>

#!/usr/bin/perl

...
print "This was the read from the parameters:\n";
print "<@ARGV>\n";
}

waited too long, exiting. This is what I have:
This was read from the pipe:
...

This was the read from the parameters:
<1 2 3 4>