13 use IO::Compress::Gzip qw(gzip $GzipError :level :strategy);

    13 use IO::Compress::Gzip qw(gzip $GzipError :level :strategy);

    14 use Hash::Util qw(lock_keys);

    14 use Hash::Util qw(lock_keys);

    15 use Getopt::Long;

    15 use Getopt::Long;

    16 use Pod::Usage;

    16 use Pod::Usage;

    17 use Imager 0.1;

    17 use Imager 0.1;

    18 

    19 

    19 use constant KiB      => 1024;

    20 use constant KiB      => 1024;

    20 use constant MiB      => 1024 * KiB;

    21 use constant MiB      => 1024 * KiB;

    21 use constant GiB      => 1024 * MiB;

    22 use constant GiB      => 1024 * MiB;

    22 use constant BS       => 4 * MiB;

    23 use constant BS       => 4 * MiB;