my $url = URI::URL->new( 'http://www.perlmonks.org/index.pl' );

    $url->query_form(
              op          => 'login',
              user        => $username,
              passwd      => $password,
              expires     => '+10y'
          );

    my $request = HTTP::Request->new( GET => $url->as_string() );
    my $response = $agent->request( $request );