format OUT =
             @<<<<           @<<<<<<<<<<<<<<<<<<             @<<<<<<<        @<<<
     $Status, $element, $ms, $count
     .

     $~="OUT";
     open(OUT,">>tmp");

     $Status="\033[32m$Status";
     $element="\033[36m$element";

     write OUT;