Perl: file or directory

To check this, the prescription says:

view plainprint?

1. if (-d $file)  
2. {  
3.    print $file." is a directory\n";  
4. } else {  
5.    print $file." is a file\n";  
6. }  

if (-d $file)
{
   print $file." is a directory\n";
} else {
   print $file." is a file\n";
}

When this is used in pair with IO:Dir, which helps you to enumerate contents of a given directory, one non-obvious step should not be forgotten:

view plainprint?

1. tie %dir, 'IO::Dir', $dir;  
2. foreach my $entry(keys %dir) {  
3.    next if ($entry eq '.' or $entry eq '..');  
4.    # important part is here: concatenation with the full path  
5.    if (-d $dir."/".$entry)  
6.    {  
7.       print $entry." is a directory\n";  
8.    }  
9. }  

tie %dir, 'IO::Dir', $dir;
foreach my $entry(keys %dir) {
   next if ($entry eq '.' or $entry eq '..');
   # important part is here: concatenation with the full path
   if (-d $dir."/".$entry)
   {
      print $entry." is a directory\n";
   }
}