my_open( FH, ">", "foo.bar" ) or die "foo.bar: $!";

#...

sub my_open {
    my ( $fh, $mode, $name ) = @_;
    open( $fh, $mode, $name );
}