[Perl] Ausgabe formatieren

[Maxcoke]

HI,
hab ein kleines Problem, was mich aber sehr beschäftigt und zwar:

Habe ich eine Ausgabe, die eine Downloadmenge in Byte anzeigt. Ich möchte sie aber in MB haben. Und ich möchte sie formatiert haben.

Ausgabe:

im Moment: 365881094551086 Byte

in Zukunft: 3.658,81 Mbyte

Könnt ih rmir helfen, dies zu realisieren?

[hwei]

meinst du so?

#!/usr/bin/perl -w

use strict;

my $summe = 0;
my $zahl1 = 365881094551086;
my $zahl2 = 1024;


$summe = &summe();

print "$zahl1 B sind \n";
printf ("%.2f MB", $summe);

sub summe
{
$summe = $zahl1 / $zahl2;
$summe = $summe / $zahl2;
$summe = $summe / $zahl2;
}

[Maxcoke]

Danke,
ich habes schon gelöst.