Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl
use strict;
...
die "What no STDIN?\n" if -t;

print while <>;

Select or download this

$ ./stdintest.pl
What no STDIN?
$ echo foo | ./stdintest.pl 
foo
$