use strict;
use warnings;
use autodie;

open my $file, ">/etc/boo";  # should die
print $file "a";
close $file;