use Net::SSH::Perl;

$pac = burn.i386_26.rpm
$host = "10.x.x.x";
$user = "xxxxx";
$passwd = "xxxxx";

$cmd = <<COM;
cd /usr
rpm -ivh $pac
COM

$ssh = Net::SSH::Perl->new($host);
$ssh->login($user,$passwd);
($output, $error, $exit) = $ssh->cmd($cmd);

$cmd = <<CC;
cd /usr
rm -rf $pac
CC

$ssh = Net::SSH::Perl->new($host);
$ssh->login($user,$passwd);
($output, $error, $exit) = $ssh->cmd($cmd);