#!/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";

##</code><code>##

This was read from the pipe:
<Hi
Bye
>

This was the read from the parameters:
<1 2 3 4>

##</code><code>##

#!/usr/bin/perl

$SIG{ALRM} = sub {
    warn "waited too long, exiting. This is what I have:\n";
    report();
    exit;
};
alarm(2); # time out after two seconds

my $Pipe= "";
while (<STDIN>){
    $Pipe .= $_;
}
report();

sub report {
print "This was read from the pipe:\n";
print "<$Pipe>\n\n";

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

##</code><code>##

waited too long, exiting. This is what I have:
This was read from the pipe:
<Hi
>

This was the read from the parameters:
<1 2 3 4>