#!/usr/bin/perl -w
use strict;

use Data::Dumper;
use File::Path;

my $Dir2Delete = 'C:/temp/JUNK'; 

rmtree(
        $Dir2Delete,
        { verbose => 1, error  => \my $err_list }
      );

print Dumper $err_list; #should be $VAR1 = [];, ie null