wrap_subs sub {}, 'File::Copy::Recursive::fcopy', 'File::Find::find',\&after_dircopy;

find {
bydepth => 1,
no_chdir => 1,
wanted => sub {
if (!-l && -d _) {
#rmdir && print STDERR "\nDeleted: $_\n" or warn "couldn't rmdir directory $_: $!";
rmdir or warn "couldn't rmdir directory $_: $!";
($_ ne $sourcedir && $_ ne ".") or die "Process completed";
} else {
#print STDERR ".";
unlink or warn "couldn't unlink file $_: $!";
}
}
} => $sourcedir;