#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Std;
use Data::Dumper;


sub getopt_fun {
    my %args;

    {
        local @ARGV = @_;
        getopt 't', \%args;
    }

    print Dumper \%args;
}

getopt_fun (-t => 'foo');