# -- IO Implementation --------------------------------

use IO::File;

my $file   = 'foo.txt';
my $handle = new IO::File ($file)
               || die "Could not open $file\n";

print $handle->getlines();

$handle->close();

# -- Traditional --------------------------------------

my $file = 'foo.txt';
open (FILE, $file) || die "Could not open $file\n";

print <FILE>;

close (FILE);