in reply to Read from Input

$input = <>;
print "$input\n";

[download]

In Section Seekers of Perl Wisdom