#!/usr/bin/perl -w
use strict;
use Crypt::Blowfish_PP;

my $key="abcdefghijklmnopqrstuvwxyz";
my $data="This is what I want to encrypt";

my $bf = Crypt::Blowfish_PP->new($key);

my $encrypted_data = $bf->encrypt($data);

my $decrypted_data = $bf->decrypt($encrypted_data);