if ($up_dir_local && $up_dir_remote) {
print "Preparing to upload folder $up_dir_local to $up_dir_remote \n";
sleep 3;
if ($sftp->rput($up_dir_local, $up_dir_remote)){
print "The directory \"$up_dir_local\" was uploaded to \"$up_dir_remote\"";
} else {
print "\"$up_dir_local\" or \"$up_dir_remote\" could not be found. Check your path!";
}
}