use vars qw ( $TOPMARGIN $BOTTOMMARGIN $LEFTMARGIN $RIGHTMARGIN $PAGEHEIGHTPOINTS $PAGEWIDTHPOINTS );