$ perl -MCarp -e " my $f = unlink (666) || carp 1; die $f "
1 at -e line 1
1 at -e line 1.