my $fname = "output\.txt";

unless(open(OUTPUT,">$fname")) {
    exit
}

print OUTPUT "This worked\n";
close(OUTPUT);