Select Code to Download

Usage() && exit if grep{not exists $args->{$_}}@mandatory;

#!/usr/bin/perl -w
use strict;
...
#rest of program...

__END__