#!/usr/bin/perl -w
use strict;
use diagnostics;
print "Enter some text: ";
my $text=<STDIN>;
chomp($text);
my $key=pack("H16","0123456789ABCDEF");
my $cipher=new Crypt::Blowfish $key;
my $ciphertext=$cipher ->encrypt($text);
while ($plaintext) {
        print "$ciphertext\n";
}