$sftp->setcwd("/root/svcftp/sftp") or die "=[\n" . $sftp->error;
$sftp->put("/usr/local/nagios/Misc/sftptest", "/root/svcftp/sftp/sftptest") or die "Can't put\n" . $sftp->error;

##</code><code>##

Couldn't setstat remote file: SSH_FILEXFER_ATTR_PERMISSIONS at line 33.