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: $_";
   }
}
[download]

UPDATE: Changed while(<$temp>) to while(<FILE>).
This makes more sense, and is probably what you were trying to do.

Also, as merlyn says, the "opendir" and "while($temp=readdir..." can be replaced with :

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

#!/usr/local/bin/perl
use strict;
opendir(DIR, ".");
my @files = grep/^\w+/, readdir(DIR);
for (@files) {
 undef $/;
 open(IN, "$_") || die "Cannot open $_";
 my $str = <IN>;
 print $str;
 close(IN);
}
[download]

If you need to read only text file you can grep only .txt file. For eg: my @files = grep/.txt$/, readdir(DIR);