use IPC::Run qw(run harness);
# This will work
my $h = harness "perl", "-v";
run $h;
print "\n\n-------------------\n";
print "Calling harness with one arg...";
print "\n-------------------\n\n";
#This will not work if you don't have command.com
my $h2 = harness "perl -v";
run $h2;