$units = sprintf "%.2f", $units*$p;