use strict;
use warnings;
use Test::More qw(no_plan);

my $percent = sprintf("%d%%",(1/3)*100);
is($percent,"33%");
print "Result: $percent\n";

$percent = sprintf("%d%%",(1/30)*100);
is($percent,"3%");
print "Result: $percent\n";