#!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 );
    }
}