use warnings;
use strict;
my $directory = "\\usr\\pm\\filefind1";
print "Folder: ", $directory;

print -d $directory ? " found" : " not found", ".\n";

opendir (DIR, $directory) or die $!;
while (my $fldr = readdir(DIR)) {
    print "$fldr\n";
}

__END__
output:
Folder: \usr\pm\filefind1 not found.
No such file or directory at C:\usr\pm\filefind\1104870.pl line 8.

##</code><code>##

use warnings;
use strict;
my $directory = "\\usr\\pm\\filefind1";
print "Folder: ", $directory;

print -d $directory ? " found" : " not found", ".\n";

###### added $^E
opendir (DIR, $directory) or die "$!\n***********\n$^E\n";
while (my $fldr = readdir(DIR)) {
    print "$fldr\n";
}

__END__
output:
Folder: \usr\pm\filefind1 not found.
No such file or directory
***********
The system cannot find the path specified