Select Code to Download

my $doc = $AllDocuments->GetFirstDocument;
while ( $doc ) {
    # Fetch the next document prior to running code to guard against s
+omeone deciding to delete $doc.
...
    ...
    $doc = $NextDoc;
}

sub GetNthDocument {
    my ( $Collection, $n ) = @_;
...

    return $doc;
}

sub Doc2HTML {
    my ( $doc ) = @_;
    my $db = $doc->{Parent};
...

    return LWP::Simple::get( "http://$server/$filepath/$view/$unid" );
}