use Data::Dumper;
use File::Path qw{ remove_tree };

my $err;
remove_tree('1', { error => \$err });
print Dumper($err);