use Getopt::Long qw(GetOptions);
my $arg1;
GetOptions( 'arg1=s' => \$arg1);