#!/usr/bin/perl --
use strict;
use warnings;
use Path::Class qw/ dir file /;
use Data::Dump qw/ dd pp /;
my $goner = dir('temp3k');
my $gonee = dir( $goner, 'ro/sham/bo' );
$gonee->mkpath( { verbose => 1 } );
$gonee->rmtree( { verbose => 1 } );
$gonee->mkpath( { verbose => 0 } );
$goner->rmtree( { verbose => 1 } );
__END__
mkdir temp3k
mkdir temp3k\ro
mkdir temp3k\ro\sham
mkdir temp3k\ro\sham\bo
rmdir temp3k\ro\sham\bo
rmdir bo
rmdir sham
rmdir ro
rmdir temp3k