#!/usr/bin/perl
my $Pipe= "";
while (<STDIN>){
    $Pipe .= $_;
}
print "This was read from the pipe:\n";
print "<$Pipe>\n\n";

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