use File::Path;
rmtree($dir, 0, 1);