open(FOO, '>', ...) or die $!;
print(FOO "string\n");

##</code><code>##

open(*FOO, '>', ...) or die $!;
print({ *FOO } "string\n");