opendir(DIR,$dir_to_open) || die("Cannot open directory !\n");
        @dir_contents= readdir(DIR);
      closedir(DIR);

      foreach $file (@dir_contents){
        if(!(($file eq ".") || ($file eq ".."))){
             # I want to delete the files 
         }

##</code><code>##

use File::Slurp;
for my $file (grep { -f } read_dir($dir_to_open)) {
      # I want to delete the files 
}