sub writeSubmissions{	
	if ($filetype == 1 ) { $log_file = "pem.enc"; }
	else { $log_file = "act_encrypted.enc"; }
	
	$my_key = `openssl enc -bf-cbc -d -in key_file.txt -k encrypt`;
	$cipher = Crypt::CBC->new( {'key'          => $my_key,
                              'cipher'          => 'Rijndael',
                              'regenerate_key'  => 1,
                              'padding'         => 'standard',
                           });
	open FH_crypted, ">>$log_file";
	#binmode FH_crypted;
	flock FH_crypted, LOCK_EX;
	$cipher->start('encrypting');
	print FH_crypted $cipher->crypt($asr_line);
	print FH_crypted $cipher->finish;
	close FH_crypted;

}