Select Code to Download

package ReadPipe;
require Exporter;
...
#    cbreak
#    raw
#    ultra-raw

package ReadPipe;
require Exporter;
...
   # print STDERR "\$Pipe = <$Pipe>\n";
   return $Pipe;
}

#!/usr/bin/perl

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

$ ( echo Hi; sleep 3; echo Bye ) | ./ReadAPipe.pl a b c
This was read from the pipe:
...

This was the read from the parameters:
<a b c>

#
#
...
   # print STDERR "\$Pipe = <$Pipe>\n";
   return $Pipe;
}

#!/usr/bin/perl

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

$ ( echo Hi; sleep 3; echo Bye ) | ./ReadAPipe.pl a b c
This was read from the pipe:
...
<a b c>