use strict;
use warnings;
use autodie;

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

##</code><code>##

$ perl e.pl
Bareword "Fatal::LEXICAL_TAG" not allowed while "strict subs" in use at /usr/lib/perl5/site_perl/5.10.0/autodie.pm line 14.
Compilation failed in require at e.pl line 5.
BEGIN failed--compilation aborted at e.pl line 5.