Select Code to Download

#!/usr/bin/perl -w
use warnings;
...
    }
  }
}

...
while (<FILE>) {
...
   ++$topHash{$year}{$month}{$day}{$hour}{$minute};
}
close(FILE);