#! /usr/bin/perl
 use Crypt::CBC;
  $cipher = Crypt::CBC->new( {'key'             => 'my secret key',
                              'cipher'          => 'Blowfish',
                              'iv'              => '$KJh#(}q',
                              'regenerate_key'  => 0,   # default true
                              'padding'         => 'space',
                              'prepend_iv'      => 0
                           });

$cipher->start('encrypting');
open(F,"./plain_file");
open(STDOUT,">crypt_file");
  while (read(F,$buffer,1024)) {
      print $cipher->crypt($buffer);
  }
close STDOUT;