use File::Path qw(rmtree);

rmtree($dir);