The first step would have been to, say:

print "T is '$t'\n";
[download]

In other words, "never assume" that you actually know what command-string is being executed. ...

$t = "dir \"C:\\ProgramData\\Test1\\Test Folder\""
[download]

... So, the command that is presented will be:

dir "C:\\ProgramData\\Test1\\Test Folder"
[download]

$ perl -wMstrict
my $t = "dir \"C:\\ProgramData\\Test1\\Test Folder\"";
print "T is '$t'\n";
__END__
T is 'dir "C:\ProgramData\Test1\Test Folder"'
[download]