Lazy in a good way:

my $input = join ('', <>);

Or, if you prefer named arguments:

my $input = open (IN, $ARGV[0]) && join ('', <IN>);

Don't forget that it's @ARGV and not @argv.

If you're using this as a CGI application, it virtually, but not entirely, goes without saying:

use CGI;