open (FILE, $ARGV[0]) or die "unable to open file $!";

my $data = do {local $/; <FILE>; };

print $data;