Select Code to Download

#!/usr/bin/perl
use strict;
...
my $extensions_sum = sum(values %extensions);
my $extensions_types = keys %extensions;
my $file_sizes_total = keys %file_sizes;

my @ext_rows;
for my $key (sort keys %extensions) {
...
# the headings, since they did not require any real munging.
table(3, { style => 'float:right', headings => ['Ext','Count'], data =
+> [@ext_rows], whead => [@ext_end_rows] });
table(3, { headings => [qw(File bytes kilobytes megabytes)], whead => 
+[@size_rows] });

sub link_color {
  my ($file,$style) = @_;
...

  return $style ? qq( style="color:#$color") : qq(color:#$color);
}