MAIN: {
     my %options;
     GetOptions(\%options, "foo", "bar"); 
     nose ($options{foo}, $options{bar});
}

sub nose {
    my ($foo, $bar) = @_;
    # stuff
    my $cuke;
}