sub foo {
    local @ARGV = @_;
    my %args;
    Getopt::Long::GetOptions(%args, "bla=i", "bar=s", ...) or die;
    ....
}
foo(-bla => 4711, -bar => "...");