Found the problem...the code example has a minor error that need to be changed:

my $bf = Crypt::Blowfish->new($key);
[download]

Should be:

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

-THRAK
www.polarlava.com