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