#!/usr/bin/perl
use strict ;

my $drive = "C:";
my $cmd = "dir";
my $dir = "Program files";
if ($dir =~ /\s/ ) {
	$dir = "\"$dir\"";
}

my $test3 = "$cmd $drive\\$dir";

print ("Test: $test3\n") ;
system($test3);