use strict;
    use warnings;

    my $correct = "eod complete exit status = 0";

    use LWP::UserAgent;
    my $ua = new LWP::UserAgent;
    my $req = new HTTP::Request
        GET => "http://server.net/obscure-url/loglastline.cgi";
    $res = $ua->request($req);
    if ($res->is_success) {
        warn "Log not correct: " . $res->content . "\n"
            unless ($res->content =~ /$correct/;
    } else {
        die "Ooops. something went wrong:\n" . 
            $res->as_string() . "\n";
    }