nose ($options{foo}, $options{bar});

##</code><code>##

our $Verbose = 0; # Used tons of different places so is global

my @files = cmd_opts( @ARGV );
...

sub cmd_opts {
    my @args = @_;
    my $mod = 0;
    GetOptionsFromArray( \@args,
        'verbose|v'  => \$Verbose,
        'modified|m' => \$mod,
    ...
    return find_files( $mod, @args );
}