#!/usr/bin/perl -w
use strict;

my $dir = '/etc';

if (-e $dir and -d $dir) {
    print "SPOON :)\n";
} else {
    print "spork :(\n";
}