/usr/local/CPAN/MD5-Reverse/MD5/Reverse.pm

• package MD5::Reverse
  • reverse
• EOF

package MD5::Reverse;

use strict;
use Digest::MD5 qw/md5/;

our $VERSION = '0.01';

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw/\&reverse/;

sub reverse{ reverse( md5($_[0])) }

1;