use strict;
use warnings;

my $cbc = Crypt::CBC->new( -header=>"randomiv", -key => 'my secret key', -cipher => 'Blowfish' );
my $enc = $cbc->encrypt_hex("filename"); # recoverable hex phrase