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, $!";
}