grep -hrE '^\s*use\b' . | sort | uniq -c > ../doc/uses.txt

      4 use GTx;
      1 use Checkbarcode;
      1 use Checkbarcode2; # for Verifynumber
      8 use GT::API::Exception;
      3 use GT::API::ObjectCache;
      5 use GT::FindBin;
      5 use GT::Physical::Entity;
     45 use SqlEngine2;
      1 use WrapDBI;

      1 use GD 2.00; # don't need to import it, but 1.33 doesn't have copyRotate90
      1 use Barcode::Code128 'FNC1';
      2 use Tk::DateEntry;

     22 use Tk;
      1 use XML::DOM;

      1 use Date::Format;

      2 use Cwd;
     10 use Data::Dumper;
      2 use Digest::MD5 qw(md5_hex);
      1 use English;
      7 use Exporter;
      2 use File::Basename;
      2 use File::Spec;
      2 use File::Temp;
      1 use NEXT; # argh, save me from the evil
     12 use overload( '""' => \&toString);
      1 use Scalar::Util 'weaken';
      2 use Sys::Hostname;
      2 use Time::HiRes qw(gettimeofday tv_interval);
      3 use Time::Local;