Select Code to Download

#!/usr/bin/perl
use warnings;
...
for (sort { $ipHash{$a}{'order'} <=> $ipHash{$b}{'order'}; } keys %ipH
+ash) {
   print "$_ => $ipHash{$_}{'date'}\t$ipHash{$_}{'path'}\n";
}