#!/usr/bin/perl -w
chdir ("c:/lynx");
open SCORES,"lynx.exe -dump http://scores.espn.go.com/nhl/scoreboard |" or die "$!\n";
while (<SCORES>){
    if (/boxscore/i){
        s/\s+\d+\.\s+//;
        open GAME,"lynx.exe -dump $_ |" or die "$!\n";
        while (<GAME>){
            if ( $_ =~ /\d\s\d\s\d/ ){
                print;
            }
        }
        close GAME;
    }
}
close SCORES;

#! /usr/bin/perl -w
#
#   LQbengoavs.pl
#
#
#========================================
#

use HTML::Parser;

my  $currentUrl;
my @urlsToVisit;


# ============== Callback handler for tag starts ================
sub start_handler{

my $tag = shift;
my $attr = shift;
my $self = shift;

    my %attrList = %{$attr};

    # We only want to look for '<a>' tags with an HREF attribute
    if( $tag eq "a" && exists $attrList{ "href" } ){
        $currentUrl = $attrList{ "href" };
    }
    else{
        $currentUrl = undef;
    }

}

# ============== Callback handler for tagged text ================
sub text_handler{

my $text = shift;
my $self = shift;

    if( defined( $currentUrl ) && $text =~ m/Box Score/i ){
        push @urlsToVisit, $currentUrl;
    }
    return;    
}

# ============= Main starts here ============
    my $baseUrl = $ARGV[0];
    $baseUrl =~ s/(?<=[^:\/])\/.+$//;

    my $p = HTML::Parser->new(api_version => 3);
    $p->handler( start => \&start_handler, "tagname,attr,self" );
    $p->handler( text => \&text_handler, "text,self" );

    open( ESPN, "wget -q -O - $ARGV[0] | " ) || die "Cannot open $ARGV[0] : $! \n";
    $p->parse_file(*ESPN) || die $!;
    close( ESPN );
    
    foreach my $url ( @urlsToVisit ){
        if( $url !~ m/^http:\/\//i ){
            $url = $baseUrl.$url;
        }
        
        print $url,"\n";
        open( GAME, "wget -q -O - $url |" ) || die "Cannot open Game '$url' : $! \n";
        while( <GAME> ){
            #
            #   I can't seem to tell what parts you are trying to grab here.
            #
        }
        close( GAME );
    }