use LWP::FileHandle;

lwpopen HOMEPAGE, GET => "http://www.pobox.com/~japhy/"
  or die "can't access the url: $!"
while (<HOMEPAGE>) {
  print if m!<ul>! .. m!</ul>!;
}
lwpclose HOMEPAGE;