#!/usr/bin/perl -w
use strict;

use Tester;
use URL;

use Data::Dumper;
my $test = Tester->new();

my $url = URL->new();

my %hash = ('urlid'=>2,'url'=>'http://www.perlmonks.org');

$url->load(\%hash);
$test->add(\$url);

my %hash2 = ('urlid'=>3,'url'=>'http://www.ire.org');
my $url2 = URL->new();
$url2->load(\%hash2);
$test->add(\$url2);

while (my $u = $test->next()) {
    printf "URL ID: %d URL: %s\n", $u->urlid, $u->url;
}