Select Code to Download

my $usage = <<EOF

...
etc...

EOF

if( ( $#ARGV + 1 ) < 1 ) {
    die $usage;
}

die $usage unless @ARGV;