my $price = 240;
    $price = sprintf "%.2f", $price;
    print $price;