open(FH, '>foo.txt') or die $!;

print FH "bar";

close(FH);