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

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