Well, after spending an entire day on this, I've finally tracked down the offending code as line #144 in PDF::API2::Util

my $value = sprintf('%.'.abs($ad).'f',$f);
[download]

After making the following changes it worked:

my $temp='%.'.abs($ad).'f';
$temp=~/^(.*)$/;
$temp=$1;
my $value = sprintf($temp,$f);
[download]

For some reason, the working server had the modified code already in it. Don't have a clue how that happened. I'm the only one messing with the perl on these servers and even though I'm forgetful, I didn't think I was THAT bad!