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

##</code><code>##

#!/usr/local/bin/perl
-d "/tmp" and print "/tmp is a directory\n";