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