upload.pl

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw/ fatalsToBrowser /;
use Digest::MD5 qw( md5_hex );

my $q         = CGI->new();
my $imagedata = $q->param("imagedata");
my $filename  = "image/" . md5_hex(time() . $$ . rand()) . ".png";
open my $fh, ">", $filename or die $!;
print $fh $imagedata;
close $fh;

print "Content-Type: text/plain; charset=utf-8\n";
print "\n";
printf "http://%s/%s\n",
       ($ENV{HTTP_HOST} || $ENV{SERVER_NAME}),
       $filename;