$ perl -MCarp -e ' my $f = unlink 666 || carp 1; die $f '
0 at -e line 1.