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