What about something like this:

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