use File::Slurp 'write_file';
write_file( 'log1.txt',$sendmsg);
write_file( 'log2.txt',$recvmsg);