#! /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);