Help for this page
print int($x*100 + 0.5)/100 ;
sub show { my ($y, $p) = @_ ; ... } ; show("1.15", 20) ;