use Net::SSH::W32Perl;

 my $host = 'droz578.com';
 my $ssh = new Net::SSH::W32Perl($host, [options]);
 $ssh->login('user', 'password');
 my ($out, $err, $exit) = $ssh->cmd('touch /usr/local/create.txt');