Select Code to Download

*apple_proc = sub { 
        my $item = shift; 
...
        apple_pulp($item);
        };
# same for bananas here.

foreach my $item (@items) {
    SWITCH: for ($type) { # not sure from the writeup where
...
      warn "Unknown thingy: $type\n"; # Default case
    }
}