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