use Fcntl qw( SEEK_END );
seek(OUT, 0, SEEK_END);