use strict;
our $dp;
$dp = "c:\\Users\\someuser\\Documents\\documentação";
if (-d $dp) { print "ok\n"; } else { print "nope\n"; }