furl post

FurlPOST.pl

use Furl;

my $furl = Furl->new(
    agent   => 'MyGreatUA/2.0',
    timeout => 10,
    );

my %query = (
    u => 'ebisama',
    );

my $res = $furl->post(
    'http://shindanmaker.com/157704', # url
    [],# header
    [ %query ],      # form data (HashRef/FileHandle are also okay)
    );

print $res->content;