sub simple_get {
    my $url = shift;
    my $ua = LWP::UserAgent->new;
    my $request = HTTP::Request->new(GET => $url);
    my $response = $ua->request($request);
    warn "ERROR!" unless $response->is_success;
    print $response->as_string;
}