Потом расскажешь как данные из файла вытаскивал...
use Crypt::CBC;
use Crypt::Blowfish;
my $key = \'ключ\';
my $upload_dir = \'папка для заливки\'; #внимательно с правами
my $upload_file = \'имя файла\';
my $cipher = new Crypt::CBC(\'$key\',\'Crypt::Blowfish\');
open(OUT,">$upload_dir/$upload_file");
$cipher->start(\'encrypting\');
print OUT $cipher->crypt("текст для шифрования1");
print OUT $cipher->crypt("текст для шифрования2");
print OUT $cipher->crypt("текст для шифрования3");
close(OUT) ;
$cipher->finish();
А это для дешифрации
open(CFILE,"$upload_dir/$upload_file");
$cipher->start(\'decrypting\');
print $cipher->crypt($_) while
;
$cipher->finish();