Select Code to Download

                                  
$VAR1 = {
  'eggputing-sk.gif' => {
...
    }
  }
};

foreach my $filename (keys %found) {
  foreach my $fullfile (sort keys %{ $found{$filename}}) {
...
  print "Press <enter> to continue";
  <STDIN>;
}