#!/usr/bin/perl

# http://perlmonks.org/?node_id=1176039

use strict;
use warnings;

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";
__END__