{
    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 );
}