#!/usr/local/bin/perl

 opendir DH, "Sanjay" or die "fail" ;

while($temp = readdir(DH))  {
     print "$temp\n";
 open FILE, "$temp" or die "fail";
 print "pass";
 while(<$temp>) {
 print "sucess";
 }
 }