use HTTP::Request::Common;

my $login = {
   USERNAME => 'asdf', 
   PASSWORD => 'ääää',
};
my $r = HTTP::Request::Common::POST( 
	'http://127.0.0.1:12555',
        Content_Type => 'multipart/form-data; boundary=----schnippschnapp',
	Content => [ 
                     username     => $login->{USERNAME},
                     password     => $login->{PASSWORD},
                   ]
   
);