tie $f, "Trueonce";
print $f, "\n";   # 1
print $f, "\n";   # 0 
print $f, "\n";   # 0
print $f, "\n";   # 0