Select Code to Download

#!/usr/bin/perl
use strict;
...
}

print total_size(\%hash). ' ' . keys(%hash) . "\n";

105248 1000
145288 1000