#!/usr/bin/perl -w

use strict;

package CountUrls;

@CountUrls::ISA = qw(HTML::Parser);

require HTML::Parser;

use strict;

my $parser = new CountUrls;


$parser->parse_file($ARGV[0]);


print $parser->{URLS},"\n";



sub start()
{
   my($self,$tag,$attr,$attrseq,$orig) = @_;
   if ( $tag eq 'a')
     {
        if ($attr->{href})
          {
           $self->{URLS}++;
          }
     }
}