#!perl use strict; use warnings; use Tie::File; my @log; my @archive; tie @log, 'Tie::File', "C:/WINDOWS/U.S. Robotics 56K Voice INT PnP.log"; tie @archive, 'Tie::File', "H:/ppp_stats.log"; push @archive, @log; $#log = 0; pop @log; #otherwise the first line of the file #gets left there, untie @log; untie @archive;