Help for this page
Usage() && exit if grep{not exists $args->{$_}}@mandatory;
#!/usr/bin/perl -w use strict; ... #rest of program... __END__