sub spider 
{
    my $page = shift;
    return if page_already_spidered( $page );

    my $mech = get_WWW_Mechanize( $page );
    spider( $_ ) for $mech->links;

    # Perform scraping of page

    return;
}