Help for this page
su root -c "whoami"
my $ssh2 = Net::SSH::Any->new('192.168.XX.XXX, user => 'root', passwor +d => 'root'); print $ssh2->capture({stdin_data => "$sudo_passwd\n"}, ... '-p', '', '--', 'whoami');