#!/usr/bin/perl -T
# file rmtree.pl
use File::Path;
my $dir = 'path';
rmtree($dir);