{
    my $fh;
    Extra::open ( \$fh, '>', 'extra-open.txt' ) or
        die "2. Open failed: $!";
    defined $fh or die "2. Filehandle not defined";
    print $fh "Extra open works fine.\n";
    close ( $fh );
}

##</code><code>##

package Extra;

use Symbol;

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

1;