use Crypt::RC4;

my $enc_pw = RC4(seekrit => 'johnr');
my $dec_pw = RC4(seekrit => $enc_pw);

print 'enc_pw = ', unpack( 'H*' => $enc_pw ), "\n";
print 'dec_pw = ', $dec_pw, "\n";

__output__

enc_pw = 344eedff3d
dec_pw = johnr