use warnings; use strict; use diagnostics; open(LOG,"C:/WINDOWS/U.S. Robotics 56K Voice INT PnP.log") || die "Can't open1"; open(ARCHIVE,">>H:/ppp_stats.log") || die "Can't open2"; while(){ print ARCHIVE $_; } open(LOG,">C:/WINDOWS/U.S. Robotics 56K Voice INT PnP.log") || die "Couldn't truncate logfile!"; close ARCHIVE; close LOG;