Chattier version of rm -rf. Deletes every path provided on STDIN.

chattyrm.pl

#!/usr/bin/env perl

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

while ( my $path = <> ) {
    chomp $path;
    my $errors;
    my $ret = remove_tree( $path, { verbose => 1, error => \$errors } );
    if (@$errors) {
        for my $diag (@$errors) {
            my ( $file, $message ) = %$diag;
            if ( $file eq '' ) {
                say "general error: $message";
            }
            else {
                say "problem unlinking $file: $message";
            }
        }
    }
}