print &percent(150, 20), "\n"; exit (0); sub percent { my ($a, $b) = @_; return &round($b /= $a/100,1); } sub round { my ($a, $b) = @_; $b=10**$b; $a = int($a*$b*10); if ($a % 10 > 4) {$a+=10;} return int($a/10)/$b; }