foreach $line (@ARGV) { $input .= $line; }
if ($input ne '') { print "We received input:\n$input"; }
else { print "Error, no input received!"; }
exit;