#!/usr/local/bin/perl if (-d 'test') { say 1; } else { say 0; }