open(FILE, "+<$file");
my $temp;
while(<FILE>) {
  $temp .= $_;
}
seek(FILE,0,0);
print FILE $temp;
truncate(FILE,tell(FILE));
close(FILE);