$path="D:/Chanti";
opendir ( DIR, $path ) || die "Error in opening dir $dirname\n";

#//print "directory contains-->@arr";

while($filename=readdir(DIR)){
print "$filename";
 if (-f $filename){
     push(@file,$filename);
  }
 if (-d $filename){
     push(@dir,$filename);
 }
}



print "Directory--->@dir\n";
print "\n";print "\n";print "\n";print "\n";print "\n";print "\n";
print "File---->@file\n";