#!/usr/bin/perl
     
use strict;
use warnings;
use File::Path qw(remove_tree);
     
remove_tree('dir');