print "Enter The Directory Path";
$dir = <STDIN>;
chomp($dir);
opendir(DIR, $dir) || die "Unable to open the directory";
@contents=readdir(DIR);
foreach $listitem ( @contents )
{
  if ( -d $listitem )
  {
    opendir(DIR,$listitem)
    @c2=readdir(DIR);
    foreach  $l2(@c2) {
      if (-d $l2) {
       print $l2;
       print " It's a directory!\n";
      }
      else
      {
       print $l2;
	     print " It's a file!\n";
      }
    }
    }
	print $listitem;
  print " It's a directory!\n";
  }
  else
  {
  print $listitem;
	print " It's a file!\n";
  }
}
close(DIR);