Select Code to Download

#!perl
use 5.020;
...
in_all_subfolders( sub( $this_folder ) {
    scan_mails( $this_folder, \%search_options );    
}, \@start_folder);