<perl>
### kommt rein ###
$Menge=10;
$MwSt="1.16";
$Einzelpreis=10;

$GesamtMW=$GesamtM*$MwSt;

if ($zahl - int($zahl) ge 0.5) {$mod = 1} else {$mod = 0} $zahl = int($zahl)+$mod;
$zahl=$zahl/100;
$Gesamt = substr($zahl,0,index($zahl,".")+3);

out "$Gesamt";
</perl>

###### Ausgabe #######