Select Code to Download

use strict;
use warnings;
...
#    my $len = length($raw);
    if($raw ne $raw2) {print length($raw), " ", length($raw2), " ERROR
+ "}
}

use warnings;
package my_gd;
...
#    print length($raw), " ";
    if($raw ne $raw2) {print "ERROR"}    
}