#!/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();