Perl delete all files in a directory

perl

How can I delete all the files in a directory, (without deleting the directory) in Perl?

My host only allows up to 250,000 "files" and my /tmp folder fills that 250,000 qouta fast with all the session cookies going on. I cannot delete the /tmp folder in this situation. I am only permitted to delete the files within.

EDIT:

FTP clients and File managers don't exactly want to open up the folder… I assume it's because of the massive amount of files in it..

Best Solution

my $errors;
while ($_ = glob('/tmp/* /tmp/.*')) {
   next if -d $_;
   unlink($_)
      or ++$errors, warn("Can't remove $_: $!");
}

exit(1) if $errors;
Related Question