sub printit { 
   my( $prefix_text, $left_text, $right_text ) = @_;
   $~ = "GRID"; write; 

format GRID =  
-------------------------------------------------------- 
@>>>: @<<<<<<<<<<<<<<<<<<<    |     @<<<<<<<<<<<<<<<<<<< 
$prefix_text, $left_text, $right_text
-------------------------------------------------------- 
. 

}