Select Code to Download

use vars qw ( $TOPMARGIN 
              $BOTTOMMARGIN 
...
              $PAGEHEIGHTPOINTS 
              $PAGEWIDTHPOINTS
             );

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