#!/usr/bin/perl

use strict;

my ($dir_init, $top_n) = @ARGV;

my (@ls, @dirs, %top, $size, $obsolete_size);
my $sep = "~" x 80;
my $form = "%20s  %s\n";

my $min_size = 0;
my $files = 0;

push(@dirs, $dir_init);