use strict;
use warnings;
use Fatal qw(:void open);

# set $! to some random number; we just want to see
# if it is modified
$! = 42;
print "$!\n";

open my $f, '<no_such_file' or die "Can't open no_such_file: $!";