use Net::SSH::W32Perl;
use Net::SFTP;

my $ssh =ConnectSSH();
my($stdout, $stderr, $exit) = $ssh->cmd("ls");

my $sftp =ConnectSFTP();
$sftp->get("test.pl","C:/Documents and Settings/Administrator/Desktop/test.pl");

sub ConnectSSH {
	my $SSHObject  = Net::SSH::W32Perl->new($host,use_pty => 0,debug=>1);  
	$SSHObject->login($user,$pass);
	return($SSHObject);
}
sub ConnectSFTP {
	my $SFTPOBJECT = Net::SFTP->new($host,(user => $user, password => $pass,) ,debug=>1);
	return($SFTPOBJECT);
}