--- a/log.pl	Wed Feb 11 10:34:18 2009 +0000
+++ b/log.pl	Wed Feb 11 11:08:08 2009 +0000
@@ -20,6 +20,7 @@
 use File::Basename;
 use File::Temp qw(tempfile);
 use File::stat;
+use File::Copy;
 use Getopt::Long;
 use Mail::Mailer;
 use DBI;
@@ -244,7 +245,7 @@
     close $fh;
     close IN;
 
-    rename $file, $LOG;
+    move $file, $LOG;
 
 }