use Fcntl qw( :seek );
seek(LOG, 0, SEEK_END);