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

##</code><code>##

my $PAGEHEIGHTPOINTS = 842;
my $PAGEWIDTHPOINTS  = 595; # the size of your page
my ($TOPMARGIN, $BOTTOMMARGIN, $LEFTMARGIN, 
    $RIGHTMARGIN) = (10, 10, 15, 15);