Here is a good example:

#!/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);
[download]

Also, please look at the documentation for the module as well. It will explain how to do it.

TStanley
In the end, there can be only one!