Select Code to Download

package Extra;

...
}

1;

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

sub open
{
...
    # alternatively: or die "Can't open $filename: $!";
    return $h;
}