use Test::More tests => 1;
use Test::Number::Delta within => .01;
my $percent = 1/30;
delta_ok( $percent, 0.03, 'values within 1%');