#!/usr/bin/perl
use warnings;
use strict;

use File::Find;

my %seen;
my %hist;

sub collect {
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
	$atime,$mtime,$ctime,$blksize,$blocks) = lstat($_);
    return if $seen{"$dev:$ino"};
    $hist{$size}++;
}

find(\&collect, @ARGV ? @ARGV : ("."));

my $total_count;
for my $c (values %hist) {
    $total_count += $c;
}

my $ac = 0;
for my $s (sort {$a <=> $b } keys %hist) {
    $ac += $hist{$s};
    printf "%g %g %6.2f\n", $s, $ac, 100 * $ac/$total_count;
}