#!/usr/local/bin/perl -w
use strict;

use Net::SSH::Perl;
use Data::Dumper;

# I set the use_pty because that was the only way I could
# get this to work using /usr/local/bin/ssh.  It is really
# only a guess.
my $ssh = Net::SSH::Perl->new( "172.20.28.48", debug => 1, protocol => 2, use_pty => 1 );

$ssh->login();

my ($out, $err, $exit ) = $ssh->cmd('su - root -c "touch /var/tmp/silly3"', '*******');
print "out = $out\nerr = $err\nexit = $exit\n";