print $outhandle "\n"; open( LINKER, ">my_link.incl" ); ##

##

# yes, I am using strict

##

##

     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) = @_;
   my %colors = ( active => "#c1ffc1",
                  failed => "#ff0000",
                  queued => "#b23aee",
                  partial => "#ffcc00",
                  success => "#33cc33", );
# and a similar hash (%title) for "Active Jobs", etc...

   print $handle <
    
       $class: $title{$status}
    
  
ROW
}

##

##

 print "\n\n";

####

 print "\n
\n";