Select Code to Download

$ cpan
cpan> force install Digest::MD5::Reverse

use strict;
use warnings;
...
my $md5       = shift;
my $plaintext = reverse_md5($md5);
print( defined $plaintext ? "$md5\t$plaintext" : "NOTFOUND", "\n" );