Help for this page
#!/usr/bin/perl -w ... } 1
#!/usr/bin/perl -w use strict; ... while (my $u = $test->next()) { printf "URL ID: %d URL: %s\n", $u->urlid, $u->url; }