use strict;
use warnings;
use Data::Dumper;

use Net::OpenSSH;

my $user = 'user';  #this is just for testing -- final script will ask for user's input.

my $password = 'password'; #this is just for testing -- see above

my $host = 'whater.host.to.check';

my $ssh = Net::OpenSSH->new($host, user => $user, password => $password, strict_mode => 0); 


my $test = $ssh->system('sudo su - user && crontab -l');  #once script sudos, script hangs until I ctrl-c. 



print Dumper $test;

print Dumper $ssh;