Yes. Additionally you can use the FileHandle module:

use FileHandle;
sub Whatever 
{
    my $filehandle = new FileHandle;
    open $filehandle, $file or die "Failed to open $file, $!";
    # do stuff.
    close $filehandle or die "Failed to close $file, $!";
}
[download]

But that wasn't my point.