my $browser = LWP::UserAgent->new;
  my $response = $browser->get( $in{url} );

  if ( $response->status_line eq '200 OK' ) {
    my $html = $response->content;
    print "fetching $in{url}";
    while( $html=~ m/<a href="\s*(.+)\s*"/g ) {
      print
      print "links $1<br>\n";
    }
  }