Help for this page
#!/usr/local/bin/perl -w use strict; ... $num =~ s/\.(\d).*/.$1/; # perform the rounding (as string) return $num; }
$xx = 12.0 $yy = 12.7