use Getopt::Long;
GetOptions( q!help|h|?! => \$help );