use Crypt::Blowfish;

$blowfishkey=pack("H*",'5b3b272e5d39342d33313d3d2d252640215e2b5d00');
$p1 = "\x00WildMaN";

$cipher = new Crypt::Blowfish $blowfishkey;

print "Key: $blowfishkey\n";
print "Plaintext packet: $p1\n";
$p2 = $cipher->encrypt($p1);
print "Encrypted packet: $p2\n";
$p3 = $cipher->decrypt($p2);
print "Decrypted back to: $p3\n";

##</code><code>##

Key: [;'.]94-31==-%&@!^+].
Plaintext packet: .WildMaN (00 57 69 6c  64 4d 61 4e)
Encrypted packet: ..Y..D.. (02 b2 59 1f  f3 44 86 aa)
Decrypted back to: .WildMaN (00 57 69 6c  64 4d 61 4e)