note
jZed
Try for yourself (with the commented line commented and then uncommented):
<code>
#!perl -w
use strict;
$|=1;
writefile();
print FILE "goodbye\n";
print `cat tmptmp`;
sub writefile {
# local *FILE;
open (FILE, ">tmptmp") or die $!;
print FILE "hello\n";
}
</code>
376754
376754