#!/usr/bin/perl -w
use strict;
use diagnostics;
use Crypt::CBC;
my $key=pack("H16","0123456789ABCDEF");
my $cipher = Crypt::CBC->new({
                              cipher         => 'Blowfish',
                              key            => $key,
                              regenerate_key => 0,
                             });
$cipher->start('encrypting');

print "Enter some text: ";
my $text=<STDIN>;
chomp($text);
print $cipher->crypt($text);
print $cipher->finish;
print "\n";