Select Code to Download

use Parallel::ForkManager;
my $pm = new Parallel::ForkManager(4);
...
    $pm->finish;
}
$pm->wait_all_children;

use File::Find;
use Storable qw(store retrieve);
...

find(\&wanted,@usr_dirs);
store $mbox, $storable_file or die "Can't store !\n";