use strict;
use warnings;
my ($FILE, $TEMP);
open $FILE, "<", "file";
open $TEMP,">",file.tmp;
while (<$FILE>){
   if ($. > 5){
      print $TEMP $_;
   }
}
close $FILE;
close $TEMP;
rename file.tmp, file;