$dirname = 'x';

$exists = ` if [ -d '$dirname' ] ; then echo 1; else echo 0; fi `;

$exists =~ s/\n$//;

if ($exists eq '1')
{
        print "exists";
}
else
{
        print "not exists";
}

print "\n";