Help for this page
use vars qw( %format ); ... FMT1 } #look ma, three different block closing methods all #in a column down the left side, yay!
eval $format{GRID}; die "Oops eval wasn't happy with $format{GRID},\n$@" if $@;