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