use strict;
use warnings;
for ( my $foo = -2; $foo <= 2; $foo += 0.2 ) {
     my $bar = int( $foo < 0 ? $foo - 0.5 : $foo + 0.5 );
     print "$foo = $bar\n";
}

$gerundet = sprintf("%.0f", $zahl);

sub runden{
 my ($zahl, $stellen)=@_;
 $zahl = wurzel($zahl hoch 2);
 $stellen = 0 unless($stellen);
 my $multiplikator = 10 hoch $stellen; # weiß die syntax nicht
 return int($zahl*$multiplikator+0.5)/$multiplikator;
}

sub float2money{
    my $zahl =$_[0];
    return "0,00" if $zahl ==0;
    $zahl = int($zahl*100+0.5);
    $zahl =~ m/(\d)(\d)$/;
    $zahl = int($zahl/100);
    return $zahl.",".$1.$2;
}