Example Server-side File Upload Code

#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

use strict;
my ($email, $password, $folderName, $merchandiseId, $storeId, $sectionId, $imagePath) = @ARGV;
if ($#ARGV+1 != 7) {
    die "Usage: upload.pl, email, password, folderName, merchandiseId, storeId, sectionId, imagePath";
}
my $host = 'cafepress.com';
my $appKey = '77888c76-60ac-44f1-8e88-207bc5a81234';
my $ua = new LWP::UserAgent;
my $authResponse = $ua->get( "http://api.$host/authentication.getUserToken.cp?appKey=$appKey&email=$email&password=$password&v=3" );
die "Error: ", $authResponse->status_line unless $authResponse->is_success;
my $userToken = ($authResponse->content =~ /<value>(.*)<\/value/)[0];
print "User token $userToken\n";

my @fileNames = <$imagePath/*.{jpg,gif,png}>;
foreach (@fileNames) {
        print "Uploading: $_\n";
        print "http://hap1.$host:8080/image.upload.cp\n";
        my $response = $ua->post("http://upload.$host/image.upload.cp",
                    Content_Type => 'form-data',
                    Content => [
                       folder => $folderName,
                       userToken => $userToken,
                       cpFile1 => [$_],
                    ]);
        die "Error: ", $response->status_line
        unless $response->is_success;
        my $designId =  ($response->content =~ /<value>(.*)<\/value/)[0];
        print "Uploaded $_ to design id $designId\n";

        my $product = "<product merchandiseId=\"$merchandiseId\" sellPrice=\"179.99\" description=\"test\" storeId=\"$storeId\" sectionId=\"$sectionId\"> <mediaConfiguration dpi=\"2000\" height=\"7.5\" width=\"10\" name=\"FrontCenter\" designId=\"$designId\" /> </product>";
        $response = $ua->post("http://api.$host/product.save.cp",
                    Content_Type => 'form-data',
                    Content => [
                       v=>3,
                       appKey => $appKey,
                       userToken => $userToken,
                       value => $product
                    ]);
        print $response->content;
        die "Error: ", $response->status_line
        unless $response->is_success;
        my $productId =  ($response->content =~ /id="(.*)"/)[0];
        print "Created product $productId for design id $designId\n";
}