#!/usr/bin/perl -w
use strict;
use Fatal qw/open close/;

package Foo;
#use Fatal qw/open close/;
sub bar {
    open(FILE,'dfdsadf');
    close FILE;
}

package main;
Foo::bar();