my $bytes = 82591;

my $kb = $bytes / 1024;

$kb = sprintf('%1.0f', $kb);

print "$kb\n";