sub Login                                                                    
      {                                                                         
              my ($self, $username, $password, $server) = @_;                   
              $self->{server} = $server || 'www.livejournal.com';               
              my $response = $self->head("http://$self->{server}");             
              $self->{cookies} = HTTP::Cookies->new();                          
              $self->{cookies}->extract_cookies($response);                     
              $self->cookie_jar($self->{cookies});                              
              $response = $self->request(POST "http://$self->{server}/login.bml?
   ret=1", Content => {mode=>'login', user => $username, password => $password})
   ;                                                                            
      }