in reply to Join a file piped to a perl script
You may be looking for the diamond operator, <>. see perldoc perlop.
After Compline,Zaxo
my $input = join ('', <>);
my $input = open (IN, $ARGV[0]) && join ('', <IN>);
use CGI;