Select Code to Download

#!/usr/bin/perl -T

...
my $n = rmtree( File::Spec->rootdir(), 0, 1);

ok( $n, "Deleted at least one file from the root directory" );