#!/usr/bin/perl -w
use strict;
open FILEHANDLE, "< filename" 
    or die "Failed to open 'filename', $!";
my @contents = <FILEHANDLE>;
close FILEHANDLE;

##</code><code>##

#!/usr/bin/perl -w
use strict;
use IO::File;
my $file = IO::File->new( "< filename" )
    or die "Failed to open 'filename', $!";
my @contents = <$file>;
$file->close();

##</code><code>##

#!/usr/bin/perl -w
use strict;
use IO::File;
use constant FILENAME => filename;

my $file = IO::File->new( "< ". FILENAME )
    or die "Failed to open '@{[FILENAME ]}', $!";
my @elements;
{
    local $/ = $/.$/;
    @elements = <$file>;
}
$file->close();