Select Code to Download

#!/usr/bin/env perl

...
    die
qq{$0 --input file --output file [--keep s1] [--keep s2] ...\n};
}