2010-08-31T14:22:19 renee

Oder:

Code (perl): (dl )

1
2
3
4
5
6

my $check = lc $type;

my $div = $MB;
$div    = $GB if $check eq 'gb';

$size = sprintf "%.2f", $size / $div;