package Extra;

use Symbol;

sub open
{
    my ( $fh, $direction, $filename ) = @_;
    
    $$fh = Symbol::gensym;
    open ( $$fh, $direction, $filename );
}

1;

##</code><code>##

sub open
{
    my (undef, $direction, $filename)=@_;

    $_[0]=Symbol::gensym;
    open ($_[0],$direction,$filename);
}

##</code><code>##

sub open
{
    my ($direction,$filename)=@_;
    open my $h,$direction,$filename or return;
    # alternatively: or die "Can't open $filename: $!";
    return $h;
}