my $ssh = Net::SSH2->new();
$ssh->connect($IP,$port) or die "Unable to connect $@ \n";

if ($ssh->auth_password($user, $password)) {

	my $chan = $ssh2->channel();
	$chan->exec("c:/foo/bar/myScript.bat \n");
	$chan->close;
}