use Net::SSH::Any;
my $ssh = Net::SSH::Any->new($host, user => $user, password => $password);
my $output = $ssh->capture({stdin_data => $input_data}, $cmd);