Slurp file


#!/usr/bin/perl -w
my $file = $ARGV[0];

# As an array
open (FILEHANDLE, “<$file”) or die “Couldn’t open file $file: $!”;
my @lines = <FILEHANDLE>;
close (FILEHANDLE);

# As a scalar
my $content = do { local( @ARGV, $/ ) = $file; <> };