if ($Preis < 100){
$versandkosten = 2.20;
} else {
$versandkosten = 0
}

sub f_zahl{
my ($Zahl, $Stellen) = @_ ,my ($s, $i) = ("", 0);
$Stellen = $Stellen eq "" ? "2" : $Stellen;
$Zahl = sprintf("%.$Stellen"."f", $Zahl) if ($Stellen > 0);($Zahl, $Komma) = split(/\./, $Zahl);for ($i=1; $i<=length($Zahl); $i++){$s=(($i % 3 == 0) && ($i<length($Zahl))? "." : "").substr($Zahl,-$i,1).$s;}
$Komma = "," . $Komma if length($Komma);
return $s . $Komma;
}