I had to write this program
because rmdir was claiming not to have enough authorization

context Today I wanted to delete directory…

use strict;
use warnings;
use File::Path qw(remove_tree);

# Specify the directory to be deleted
my $directory = 'c:\\Users\\mydirectory\\mysubdirectory\\';

# Remove the directory
remove_tree($directory, {error => \my $err});

# Check for errors
if (@$err) {
    foreach my $diag (@$err) {
        my ($file, $message) = %$diag;
        if ($file eq '') {
            print "General error: $message\n";
        } else {
            print "Problem unlinking $file: $message\n";
        }
    }
} else {
    print "Directory successfully deleted.\n";
}