#!/usr/bin/perl
use Crypt::Blowfish;
my $key = pack("H16","0123456789ABCDEF");
my $cipher = new Crypt::Blowfish $key;
chomp(my $plaintext = $ARGV[0]);
my $ciphertext = $cipher->encrypt(pack("H16","sameer"));
print unpack("H16",$ciphertext),"\n";