#! /usr/bin/perl -slw
use strict;

print "About to try fail 1";
my $testfile = "test.exe";
my $test = "/C ${testfile} localhost root pwd";
system ("cmd", $test);

print "About to try fail 2";
$test = "${testfile} localhost root pwd";
system ($test);

##</code><code>##

c:\test\test\test>test.pl
About to try fail 1
0 : test.exe
1 : localhost
2 : root
3 : pwd

About to try fail 2
0 : test.exe
1 : localhost
2 : root
3 : pwd