#!/usr/bin/perl

# Note: check out Pause.pm for reading empty keys

use lib '/home/linuxutil';
use strict;
use warnings;
use ReadPipe qw ( ReadPipe );


my $Pipe= "";

# while (<STDIN>){ $Pipe .= $_; }  # hangs if pipe is empty

$Pipe = ReadPipe::ReadPipe ();

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__