Help for this page
#! perl -slw use warnings; ... + 2 3.0 - 4 4.9 + 4 5.0
sub cmp{ print "cmp: @_"; abs( ${ $_[ 0 ] } - ${ $_[ 1 ] } ) > 0.1 ; }
P:\test>377814 cmp: 1.0 1.0 ... + 2 3.0 - 4 4.9 + 4 5.0