#!/usr/bin/perl

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

use strict;
use warnings;

my $Pipe = '';

if( -p STDIN ) {
    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__