$format  = "format STDOUT = \n";
         . '^' . '<' x $cols . "\n" ; . '$entry' . "\n" ; . "\t^" . "<" x ($cols-8) . "~~\n" ; . '$entry' . "\n" ; . ".\n" ; print $format if $debugging; eval $format; die $@ if $@;>