Select Code to Download

use Getopt::Std;

use strict;
use warnings;

use List::Util 'shuffle';

getopts('r:n:v', \%opt) or usage();

sub usage {
  print STDERR "Usage: $0 [-n N] [-r] [-v] command arg1 arg2...
...
    -v: verbose mode
";
  exit 1;

sub USAGE () {
    my $name=basename $0;  # File::Basename's
...
[actual usage here]
.EOT
}