1#!/usr/bin/perl 2 3use strict; 4use File::Find (); 5 6print "### removing empty auto directories\n"; 7File::Find::find({ 8 wanted => sub {}, 9 bydepth => 1, 10 postprocess => sub { 11 print "$File::Find::dir\n" if rmdir $File::Find::dir; 12 }, 13 no_chdir => 1, 14}, @ARGV); 15