#!/usr/local/bin/perl

say (-d 'test') ? 1:0;