$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 $@;

