sub prettyBytes {
 my $size = $_[0];
 foreach ('b','kb','mb','gb','tb','pb')
 {
	return sprintf("%.2f",$size)."$_" if $size < 1024;
	$size /= 1024;
 }
}