Select Code to Download

#! /usr/bin/perl
 use Crypt::CBC;
...
      print $cipher->crypt($buffer);
  }
close STDOUT;

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