Select Code to Download

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

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

#!/usr/bin/perl -w
use strict;
...
    @elements = <$file>;
}
$file->close();