examples/advanced/autodie.pl
#!/usr/bin/perl
use strict;
use warnings;

use autodie;

open my $fh, '<', 'data.txt';

print "ok\n";

Can't open 'data.txt' for reading: 'No such file or directory' at examples/advanced/autodie.pl line 7