my $dir = "c:/input";
opendir(DIR, $dir) or die "Error: couldn't open dir '$dir': $!\n";
# oder
unless (opendir(DIR, $dir)) {
  die "Error: couldn't open dir '$dir': $!\n";
}