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

##</code><code>##

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