Select Code to Download

#!/usr/bin/perl -wT

...
  print if /USE/.../USE/ and !/USE/;
}
close(FH);

options   [ --upload | --download | --commit ]
          [ --filename <filename> ]
...
          [ --version ]
          [ --verbose-help ]
          [ --help ]