main::die_catcher('Assertion ((svtype)((sv)->sv_flags & 0xff)) != 0xff failed: f...') called at /usr/local/lib/perl5/5.10.1/mach/IO/Handle.pm line 480
IO::Handle::autoflush('IO::Socket::UNIX=GLOB(0x802a5bff0)', 1) called at /usr/local/lib/perl5/5.10.1/mach/IO/Socket.pm line 44
IO::Socket::new('IO::Socket::UNIX', 'Peer', '/var/HA/myUNIXDomainSocket', 'Type', 1) called at /usr/local/lib/perl5/5.10.1/mach/IO/Socket/UNIX.pm line 23
IO::Socket::UNIX::new('IO::Socket::UNIX', 'Peer', '/var/HA/myUNIXDomainSocket', 'Type', 1) called at /usr/local/lib/perl5/site_perl/5.10.1/myLibrary.pm line 290

##</code><code>##

my $connection = IO::Socket::UNIX->new( 
        Peer => $uds_path,
        Type => SOCK_STREAM
);

##</code><code>##

Assertion ((svtype)((sv)->sv_flags & 0xff)) != 0xff failed: file "sv.c", line 5400 at /usr/local/lib/perl5/5.10.1/mach/IO/Handle.pm line 480.