[Biete] Kleine Perl Spielerei (Speed messen)

C:\Perl\bin>perl -w ..\speedmeter.pl
Wieviele KBits hast du: viel
viel ist keine Zahl
Gib eine Zahl ein: wenig
wenig ist keine Zahl
Gib eine Zahl ein: 6016
Wieviele Megabyte moechtest du saugen: viel
viel ist keine Zahl
Gib eine Zahl ein: wenig
wenig ist keine Zahl
Gib eine Zahl ein: 700
Wenn du mit 6016 KBits 700 MB saugen moechtest dauert das 15.51 min
Wenn du mit 6016 KBits 700 MB saugen moechtest dauert das 0.26 std

print "Wieviele KBits hast du: ";
$kbits = <stdin>;
chomp($kbits);
while ($kbits !~ /^\d+$/) {
print "\"$kbits\" ist keine Zahl\n";
print "Gib eine Zahl ein: ";
$kbits = <stdin>;
chomp($kbits);
}
print "Wieviele Megabyte moechtest du saugen: ";
$saugmb = <stdin>;
chomp($saugmb);
while ($saugmb !~ /^\d+$/) {
print "\"$saugmb\" ist keine Zahl\n";
print "Gib eine Zahl ein: ";
$saugmb = <stdin>;
chomp($saugmb);
}
$ergebnis = ($saugmb * 1000)/($kbits / 8)/60;
$ergebnis = sprintf("%.2f",$ergebnis);
$ergebnis2 = ($saugmb * 1000)/($kbits / 8)/3600;
$ergebnis2 = sprintf("%.2f",$ergebnis2);
print "Wenn du mit $kbits KBits $saugmb MB saugen moechtest dauert das $ergebnis min\n";
print "Wenn du mit $kbits KBits $saugmb MB saugen moechtest dauert das $ergebnis2 std\n";