$file->open("+<log.log") or die "$!";

##</code><code>##

IO::File=0x7863454859

##</code><code>##

$data = join("", $file->getlines);

##</code><code>##

$file->truncate(0);