perl -MFile::Copy -le 'File::Copy::copy("tmp.log", "tmp.pl");'