if ( $sftp->error ) { print "Connect Failed!"; print "\n$@"; ##if $DEBUG; print "\nConnect error: " . $sftp->error . "\n"; print "\nConnect status: " . $sftp->status . "\n";