my $EPSILON = 0.01;

sub approx_equal ( $ $ )
{
    my ( $f1, $f2 ) = @_;
    return abs( $f1 - $f2 ) < $EPSILON;
}