use Net::OpenSSH;
$Net::OpenSSH::debug = -1;

my $ssh = Net::OpenSSH->new("host.domain", (user => "username", password => "password", timeout=>30, master_opts => [-o => "UserKnownHostsFile=/dev/null"]));

while(1) {
        my($stdout, $stderr) = $ssh->capture2({timeout => 30}, "sleep 5");
}