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