my @table;
while( @linkURL )
{
    my $linkLeft = td( a( { -href => pop( @linkURL ) } pop( @linkName ) ) );
    my $linkRight = @linkURL ? td( a( { -href => pop( @linkURL ) } pop( @linkName ) ) ) : " ";
    push @table, TR( $linkLeft, $linkRight );
}
print FILE table( {}, @table ) or die "Print Failed, $!, $^E\n\t ";