$beginAddrHex = $ARGV[0]; $endAddrHex = $ARGV[1]; $numberOfSims = $ARGV[2]; #### GetOptions( \%options, qw[ help+ delete+ err_dup=s{3} ] ); #### my %options = ( 'help' => 0, 'delete' => 0, 'err_dups' => [], ); #### if ( $options{ 'err_dup' } ){ print "err_dup is called\n"; my ( $beginAddrHex, $endAddrHex, $numberOfSims ) = @{ $options{ 'err_dup' } }; # or just pass the option straight to the sub you're about to call } else { print "err_dup NOT called\n"; } #### GetOptions( \%options, qw[ help+ delete+ err_dup=o{3} ] );