open(FOOBAR, '>foo') or die("$!\n");

print FOOBAR "foo\n";