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