use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($host, user => $user, password => $passwor
+d);

$ssh->system({tty => 1}, 'sudo -s');
[download]