#!/usr/bin/perl -T
# file rmtree.pl
use File::Path;
my $dir = shift;
# $dir =~ /^(.*)$/ && ($dir = $1);
rmtree($dir);