seek(OUT, 0, 2);

##</code><code>##

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