the code broke when I put in the following parts:
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();
and this function:
<code>
sub GrabParams{
my ( $paramName, $paramValue);
foreach $paramName ($q->param) {
$valueHash{$paramName};
foreach $paramValue ($q->param( $paramName )) {
$valueHash{ $paramName } = pack 'U0A*', $paramValue;
}
}
}
<code>
all though it works on my windows machine.