(Perl) Upload Files to a Web Server - Simplest TLS Example

This is the simplest example for uploading some files to a web server using SSL/TLS. the BlockingUpload call is synchronous and returns when the upload is finished (or failed).

A server-side C# example showing how to receive an upload is located at C# ASP.NET Code to Receive Upload

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

$upload = chilkat::CkUpload->new();

# Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
# that will receive and process the HTTPS Upload.
$upload->put_Hostname("www.mywebserver.com");
$upload->put_Path("/receiveUpload.aspx");

# Make sure to indicate that TLS is to be used, and the port should be
# 443 rather than 80.
$upload->put_Ssl(1);
$upload->put_Port(443);

# Add one or more files to be uploaded.
$upload->AddFileReference("file1","dude.gif");
$upload->AddFileReference("file2","swordfish.xml");
$upload->AddFileReference("file3","sample.doc");

# Do the upload.  The method returns when the upload
# is completed.
# This component also includes asynchronous upload capability,
# which is demonstrated in another example.
$success = $upload->BlockingUpload();
if ($success != 1) {
    print $upload->lastErrorText() . "\r\n";
}
else {
    print "Files uploaded!" . "\r\n";
}