sub connect
{
        my ($pserver,$puser,$ppass)=@_;
        warn "-----------------Entering connect--------------------";
        #Connect and login to the server
        my $port = 22;
        my %args = (ssh_args => []);
        $args{user} = $puser;
        $args{password} = $ppass;
        $args{debug} = 1;
        $args{protocol} = '2,1';
        push @{ $args{ssh_args} }, port => $port;
        my $pftp = Net::SFTP->new($pserver,%args) or die "Cannot connect to $pserver: $@";
        warn "------------------Connected--------------------";
        $pftp->login($puser,$ppass)  or die "Cannot login ", $pftp->message;
        warn "return from connect";
        return $pftp;
}