if ($#ARGV < 0 ) { &help($0); exit 0;}
...
    'help|h'   => sub { &help($0); exit 0;}
     ) || die(&help($0));