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