#!/usr/local/bin/perl

say -d 'test' ? 1:0;