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

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

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