$path="D:/Chanti";
opendir ( DIR, $path ) || die "Error in opening dir $dirname\n";
while($filename=readdir(DIR)){
next if ($filename =~ m/^\./);
if (-f $filename){

push(@file,$filename);

print "\n";
}else if (-d $filename){
push(@dir,$filename);
print "\n";
}
}