if ($upload_local && $upload_remote && $up_dir) {
print "Preparing to upload file $upload_local to $upload_remote \n";
sleep 3;
if ($sftp->mkpath($up_dir)){
if ($sftp->put($upload_local, $upload_remote)){
print "The file \"$upload_local\" was uploaded to \"$upload_remote\"";
} else {
print "\"$upload_local\" or \"$upload_remote\" could not be found. Check your path!";
}
} else {
print "\"$up_dir\" could not be found. Check your path!";
}
}