File Perl

#!/usr/local/bin/perl -w
    use File::Path;
    my $count = rmtree(\@ARGV, 1, 1);
    print "There were $count files removed.\n";