print header( "application/pdf" );


use constant mm => 25.4/72;
use constant in =>    1/72;
use constant pt =>    1;

sub setImage;
sub newText;
sub newTextRight;
sub checkCurrency;
sub GrabParams;

my $q = new CGI;


my %valueHash;

GrabParams();