#!perl

use strict;
use warnings;

use Extra;

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

    {
      Extra::open ( my $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;