my $ftp = Net::SFTP->new($host,$user,$pass) or die "$!";
print "logged in to server for ftp\n";