Select Code to Download

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

IO::File=0x7863454859

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

$file->truncate(0);