$ perl -e'my $dev = "/dev";if (-e $dev and -d _) {print $dev," directory exists.",$/}'
/dev directory exists.
$