pobegam

#!/usr/bin/env perluse strict;use warnings;use WWW::Curl::Easy;use Perl6::Slurp;my $curl = new WWW::Curl::Easy;my $file = slurp("file.png");my @values = (	["key", "e7d4bf208cf3a1afa398ac9392a044de"], 	["image", $file]);$curl->setopt(CURLOPT_URL, "http://imgur.com/api/upload.xml");$curl->setopt(CURLOPT_HTTPPOST, \@values);print "Return: ", $curl->perform, "\n";print "Error: ", $curl->errbuff, "\n";