Select Code to Download

use strict;
use warnings;
...
is( $e      , 1,    '$e should equal 1'     );
is( 1-$e    , 0,    '1-$e should equal 0'   );
is( 1-"$e"  , 0,    '1-"$e" should equal 0' );

1..3
ok 1 - $e should equal 1
...
#     expected: '0'
ok 3 - 1-"$e" should equal 0
# Looks like you failed 1 test of 3.