#!/usr/bin/perl

   use strict;
   use diagnostics;
   use warnings;
   use Carp 'verbose';
   use PDA::Pilot;      # part of pilot-link, not in CPAN
 
   # it's the last value which makes the program fail;
   # and it fails only for the value 11!
   my @rec  = (0,0,0,0,0,0,0,0,11);
 
   my %info = ("type"    =>"Data",
               "creator" =>"XXXX",
               "name"    =>"test");

   my $pdb  = PDA::Pilot::File::create("test.pdb", \%info ) 
              or die "something went wrong\n";

   my $rec  = join('', map(chr, @rec));

   # It dies here, line 23
   $pdb->addRecordRaw($rec,0,0,0);