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";