#!usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use File::Copy;
use strict;

my $dir = '/usr/home/public_html/content/1';

opendir (my $ls, $dir) or die $!;
while (my $file = readdir ($ls)) {
   if ( !(-d $file)){
       chomp($file);
       if (unlink($dir . '/' . $file)) {
           print "File $file deleted successfully.\n";
       } else {
           print "File $file was not deleted: $!.\n";
       }
   }
   else{
       print "Directory\n";
   }
}
closedir $ls;