$ perl -e '-d ("/tmp") and print "aack\n"'