use Net::SFTP;
use Net::SSH::Perl;

# sample usage:

my $ssh_obj = Net::SSH::Perl->new($host);

my $scp_obj = Net::SFTP->new($host, 
                             { 
                                  user => $username, 
                                  password => $password,
                              }
 );

$ssh_obj->login($username, $password);
$scp_obj->put($local_filename, $remote_filename);

my($stdout, $stderr, $exit) = $ssh_obj->cmd($program_to_be_executed);