Only check $! right after a system call

open ... or die $!;
close ... or die $!;
print ... or die $!;

my $read = read ...;
die $! unless defined $read;