my $request = HTTP::Request->new('POST'=>
                                 $url,
                                 Content_Type => 'form-data; boundary=----schnippschnapp',
                                 CONTENT => [username     => $login->{USERNAME},
                                             password     => $login->{PASSWORD},
                                            ]);

    my $request = HTTP::Request->new($type, $url, $header, $content);
    my $response = $ua->request($request);
    unless ($response->is_success()) {
        print Dumper $response;
    }