my $arg1 = shift;

##</code><code>##

    local @ARGV = @_;


##</code><code>##

use Getopt::Long;

sub do_awesome_things
{
    local @ARGV = @_;
    GetOptions(
        'files=s' => \my @files,
        'verbose!' => \my $verbose,
    );
    warn "Going to process files @files. "
       . "Verbose is ".( $verbose ? 'ON' : 'OFF' ).".\n";

}

do_awesome_things -v => -file => 'foo.txt', -file => 'bar.txt';