use Devel::Peek;
$! = 0.0;
Dump($!);
stat("non_existing_file");
Dump($!);
die "died at first stat" if -$!;
stat("non_existing_file");
Dump($!);
die "died at second stat" if -$!;