Select Code to Download

#! /usr/bin/perl -slw
use strict;
...
print "About to try fail 2";
$test = "${testfile} localhost root pwd";
system ($test);

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