use strict;
use warnings;
use Digest::MD5::Reverse;
die "Usage: $0 <md5 hash in ascii>\n" unless @ARGV;
my $md5       = shift;
my $plaintext = reverse_md5($md5);
print( defined $plaintext ? "$md5\t$plaintext" : "NOTFOUND", "\n" );