Select Code to Download

use strict;
use warnings;
...
$rounded_percent_frsmt=$rnd->round($frsmt);

print "$rounded_precent_frsmt\n";