my $CurrentDir="."; # Or "Sanjay";
opendir DH, "." or die "failed to readdir $CurrentDir: $!";

while($temp = readdir(DH))  {
     print "$temp\n";
   if ($temp eq "." or $temp eq ".." or -d $temp){
      next; # Do not open . or ..
   }
   open FILE, "$CurrentDir/$temp" or die "failed to open file $temp:$!\n";
   print "pass";
   while(<FILE>) {
         print "sucess: $_";
   }
}

##</code><code>##

while (glob "$CurrentDir/*"){
  $temp = $_;
  # Remainder of the code is the same.