sub new_c { my ($class, $url, $cookie) = @_; my $self = { url => $url, auth_url => $auth_url }; bless $self, $class; $self->{_ua} = LWP::UserAgent->new(); $self->{_ua}->cookie_jar({cookies => $cookie} ); return $self; }