$ perl -MMath::BigFloat -wE 'say Math::BigFloat->new(5) + "foo"'
NaN