Select Code to Download

    print $outhandle "<!--#include virtual=\"my_link.incl\"-->\n";
    open( LINKER, ">my_link.incl" );

     printTableRow( $outhandle, $status, $class );
# and maybe this is where you do your linkage, too:
     print LINKER $linkstring if ( $need_to_link_here );

sub printTableRow {
   my ($handle,$status,$class) = @_;
...
  </tr>
ROW
}

 print "\n<table border=1 width=\"100%\">\n";

 print "\n</table>\n";