Gyazo uploader

upload.pl

use strict;
use warnings;
use LWP::UserAgent;
 
my $filename = shift or die "Usage: $0 filename\n";
 
my $base_url = 'http://gyazo.com/';
 
my $ua = LWP::UserAgent->new;
my $res = $ua->post("$base_url/upload",
    content_type => 'form-data',
    content => {
        imagedata => [$filename],
    },
);
die $res->status_line unless $res->is_success;
 
printf "url: %s\n", $res->content;