use strict;
use warnings;

MAIN: {
    open my $fh,">","filename";
    ... 
    nose();
    ...
}

sub nose {...;}