$seed = (time() ^($$ + ($$ <<15)));
$fh = "FH_TEST".$seed;
open (local $fh, "test.out");
while (<$fh>) {
    ..............
    ..............
}
close $fh;