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

my $storable_file = shift;
my $base_dir = shift;
my @usr_dirs = map {chomp;$base_dir."/".$_} `/bin/ls $base_dir`;
my $mbox = {};

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