#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;
use WWW::Mechanize::Link;

my $url = "http://members.fortunecity.com/bigg5/index09.htm";

my $browser = WWW::Mechanize->new();
$browser->get($url);
my @link = $browser->find_all_links();
foreach my $link (@link)
{
        print "Tag is " . $link->tag . "\n";
        print "LINK IS " . $link->url . "\n";
        if ($link->tag eq "frame")
        {
                print "Adding $link->[0] to todo list\n";
                $browser->get($link->[0]);
        }
}