Select Code to Download

  load all items into array of hash
  for each input item {
...
  save all items (timestamped)
  remove all items with old timestamp

OUTER-IF:
  if ( $type eq 'apple' ) {
...
    func3($item) unless \&func3 == \&noop;
  }