Select Code to Download

use Cwd qw( realpath );
use File::Basename qw( dirname basename );
...
    print STDERR "usage: $prog [options] [--] [files]\n";
    exit(1);
}