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

##</code><code>##

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

##</code><code>##

use CGI;