geturls

#!/usr/bin/env perl

use HTML::SimpleLinkExtor;
my $extor = HTML::SimpleLinkExtor->new();

if ($ARGV[0] =~ m#^https?://#s) {
        my $url = $ARGV[0];
        my $webpage = `wget --quiet -O - $url`;
        $extor->parse($webpage);
}
else {
        my @lines = (<>);
        $extor->parse(@lines);
}

my @links = $extor->a();
foreach (@links) {
        print "$_\n" if $_ =~ m#^https?://#s
}