sub getCmndArg { # my $num_args = $#ARGV + 1; # if ($num_args != 3) { # print "\nUsage: csv_ext_utl -d begin_addr end_addr numberOfSims\n"; # exit; # } my %options=(); GetOptions(\%options, qw[ help dfiles err_dup ]); if ($options{"help"}){ print "help is called - Help Panel:\n"; } else { print "help is NOT called\n"; } if ($options{"dfiles"}){ print "dfiles is called - deleting old simulation files\n"; my $unlinked = unlink glob {"address_register_sweep_*.sv"}; } else { print "dfiles NOT called\n"; } if ($options{"err_dup"}){ print "err_dup is called\n"; } else { print "err_dup NOT called\n"; } #$deleteFile = $ARGV[0]; $beginAddrHex = $ARGV[0]; $endAddrHex = $ARGV[1]; $numberOfSims = $ARGV[2]; } #### help is called - Help Panel: dfiles is called - deleting old simulation files Odd number of elements in anonymous hash at ./csv_ext_utl line 90 (#1) (W misc) You specified an odd number of elements to initialize a hash, which is odd, because hashes come in key/value pairs. err_dup NOT called