#!/usr/bin/perl
use HTML::LinkExtor;
use URI::URL;

if ($#ARGV != 0 ) {
        print "usage: linkextractorfile.pl file\n";
        exit;
}
$file=$ARGV[0];
print "$file\n";
my $p = HTML::LinkExtor->new();
$p -> parse ($file);
my @links = $p->links();

# Print them out
foreach (@links) {
  print "$_\n";
}