Select Code to Download

{
    my $fh;
...
    print $fh "Extra open works fine.\n";
    close ( $fh );
}

package Extra;

...
}

1;