my $calc = sprintf "%d",(((63 - -90)/.6) * 601) + (360 /.6);
ok( $calc == 153855 ) or
    diag ("((63 - -90)/.6) * 601) + (360 /.6) = 153855 not $calc ");