Select Code to Download

#!/usr/bin/perl

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

C:\test>ReadPipeAndArgs.pl  A B CDE H 123
This was read from the pipe:
...

This was the read from the parameters:
<A B CDE H 123>

C:\test>ReadPipeAndArgs.pl  A B CDE H 123 < ReadPipeAndArgs.pl
This was read from the pipe:
...

This was the read from the parameters:
<A B CDE H 123>

C:\test>ReadPipeAndArgs.pl  A B CDE H 123 < ReadPipeAndArgs.pl
This was read from the pipe:
...
This was the read from the parameters:
<A B CDE H 123>