my (@dirs,@files);
opendir(PFAD, "c:\\input")
while(my $entry = readdir(DIR)){
  push(@dirs,$entry) if(-d $entry);
  push(@files,$entry) if(-f $entry);
}
closedir(PFAD);