Select Code to Download

use Getopt::Long;

...
    print "$0: Argument required.\n";
    exit 1
}

use Pod::Usage;

...
if (!@ARGV) {
    pod2usage(-verbose => 0, -message => "$0: argument required\n")
}