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