die "Ouch. $!" unless open my $fh, '>', 'foo.txt';
print {$fh;} "hi!\n";
close $fh;