my $ret = system( "\"D:\\Program Files\\bin\\t.pl\"" );

##</code><code>##

my $ret = system( q[ "D:\Program Files\bin\t.pl" ]);

##</code><code>##

my $ret = system( '"D:\Program Files\bin\t.pl"' );

##</code><code>##

P:\test>copy con "d:\program files\test.pl8"
print "Hi there! from $0";
^Z
        1 file(s) copied.


P:\test>perl
system( '"d:\program files\test.pl8"' ) and warn 'Failed with: ', $?;
^Z
Hi there! from D:\program files\test.pl8
P:\test>