$ perl -e'
    my ($dir_qn) = @ARGV;
    opendir(my $dh, $dir_qn)
        or die "Can'\''t open dir $dir_qn: $!\n";
' somefile
Can't open dir somefile: Not a directory