#! /usr/bin/perl 
use warnings;
use strict;
my $testfile = "resultset.exe";
my $test = "/C ${testfile} localhost root pwd";
system ("cmd", $test);