#! /usr/bin/perl -w
use strict;

for my $dir( @ARGV ) {
    if( opendir( D, $dir )) {
        print "$dir: yup\n";
        closedir D;
    }
    else {
        print "$dir: nope\n";
    }
}