sub encrypt {
print "enter key: "; 
$key=<>;
$file->open("+>log.log") or die "$!";
$data = $file;
$c_txt = rijndael_encrypt($key, MODE_CBC, $data,  256, 128);
$file->print($c_txt);}

##</code><code>##

sub decrypt {
print "enter key: "; 
$key=<>;
$file->open("+>log.log") or die "$!";
$c_txt = $file;
$p_txt = rijndael_decrypt($key, MODE_CBC, $c_txt, 256, 128);
$file->print($p_txt);}

##</code><code>##

$file =~ s/\r$//;

and

$file =~ s/\n$//;