open(FILE, "Zozobra-Harmonic_Tremors-03-Levitate.mp3") or die "Can't open $!";
binmode(FILE);
while (<FILE>) {
        $md5->add($_);
}
close(FILE);

print "Checksum: ".$md5->hexdigest;
print "\n";

my $sth = $dbh->prepare("INSERT INTO mp3_amazon (..., md5_checksum) VALUES (...., decode(?, 'hex') )");
$sth->execute( ..., ..., $md5->md5_hex);