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