#!perl -w
use strict;
my $d1 = '/this/file';
my $d2 = '/that/file';

for ($d1, $d2) {
    print "[$_] " . (-e $_ ? "exists" : "does not exist") . "\n";
};

if (...) {
...
};

# Show the contents of the directories in question
system("find /this /that");