perl -e "use File::Copy::Recursive qw(pathrmdir); pathrmdir('pathtest',1); print qq(done\n);"