if ( open my $CACHE, '>', $cachename ) { truncate $CACHE, 0; seek $CACHE, 0, 0; flock $CACHE, LOCK_EX; binmode $CACHE;