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);}