#3 Problem with toString

[vinceroi]

Hi

I am trying to use the Perl HL7 toolkit to parse a HL7 message on a SPARC server (Solaris 10) with Perl 5.8.4 but I am getting the error described below.
Could you help me?

===> CODE
#!/usr/bin/perl -w

use strict;
use Net::HL7;
use Net::HL7::Segment;
use Net::HL7::Message;

# create object "Message"
my $str = qq(MSH|^~\\&|MEDICALVISIT|GH^101^General Hospital|MEDICALSOLUTION|DDC|20111231104448|0|SIU^S12|MPI-12927088|P|2.3|||||||\013);
$str .= qq(SCH|2011A10483931^3991^GH-VE-EPLAB^GH-Electrophysiology lab-Dr.V.Ectebag|||||""^""^""||7563^SD-EPS-AB^Same day patient- EPS Ablation|60||^^^201110310700|""^M. Thornton^""|||0^^^333&HOME&Home|||||SYSMAN|||0||\013);

my $msg = new Net::HL7::Message($str);

print $msg->toString(1);
print "\n";

===> ERROR:
Use of uninitialized value in concatenation (.) or string at /usr/perl5/site_perl/5.8.4/Net/HL7/Segment.pm line 177.
Use of uninitialized value in concatenation (.) or string at /usr/perl5/site_perl/5.8.4/Net/HL7/Segment.pm line 177.
Use of uninitialized value in concatenation (.) or string at /usr/perl5/site_perl/5.8.4/Net/HL7/Segment.pm line 177.
Use of uninitialized value in concatenation (.) or string at /usr/perl5/site_perl/5.8.4/Net/HL7/Segment.pm line 177.
Use of uninitialized value in concatenation (.) or string at /usr/perl5/site_perl/5.8.4/Net/HL7/Segment.pm line 177.
MSH|^~\&|MEDICALVISIT|GH^101^General Hospital|MEDICALSOLUTION|DDC|20111231104448||SIU^S12|MPI-012927088|P|2.3|
SCH|2011A10483931^3991^GH-VE-EPLAB^GH-Electrophysiology lab-Dr.V.Ectebag|||||""^""^""||7563^SD-EPS-AB^Same day patient- EPS Ablation|60||^^^201110310700|""^M. Thornton^""|||0^^^333&HOME&Home|||||SYSMAN||||

PROBLEMS:
1- For some reason the concatenation errors go away if I remove the last 8 hat character (^) in the SCH segment.
2- the result of function tostring() truncate the last 0

Thanks,
Vince