Select Code to Download

#!/usr/bin/perl

...
my $dir = $ARGV[0] || '.';
find( sub { -f and $h{$File::Find::name} = -s }, $dir );
print "$h{$_}\t$_\n" for sort { $h{$b}<=>$h{$a} } keys %h;

#!/usr/bin/perl

...
    $number =~ s/(\d)(?=(\d{3})+(\D|$))/$1,/g if length($number) > 3;
  return $dec ? "$number.$dec" : $number;
}