my $url =
        'http://www.meteoalarm.eu/index.php?lang=&AT='
      . $self->{type} . '&day='
      . $self->{day};

    my $ua = LWP::UserAgent->new;
    $ua->agent( $self->{user_agent} );
    my $res = $ua->request( HTTP::Request->new( GET => $url ) );
    croak " $res->status_line, \n"unless ($res -> is_success);

    my $page = $res->content;
    my @splitted_pages = split '<a href=', $page;

    foreach my $splitted (@splitted_pages) {
        if ( $splitted =~
/id="(\w\w)" alt="(.+?)" ><span class="warn"><img src="Bilder\/wf\/wf_\d{2,3}.jpg">/
          )
        {
            my %warn;
            my $country_code = $1;
            my $country      = $2;
            $self->{$country_code}->{'fullname'}= $country;
            
            my @warnings =
              $splitted =~ /<img src="Bilder\/wf\/(wf_\d{2,3}.jpg)">/g;

            my @literal_warnings = map { $warnpics{$_} } @warnings;

            foreach my $warn (@literal_warnings) {
                my @part = split ' ', $warn;
                $warn{ lc $part[0] } = $part[1];
            }
            $self->{$country_code}->{'warnings'} = \%warn;
        }
    }
    delete $self->{'user_agent'};
    delete $self->{'day'};
    delete $self-> {'type'};
    return $self;
}