my $p= path("C:"); unlink $_ for $p->children;