view release on metacpan or  search on metacpan

examples/test1.pl  view on Meta::CPAN

# where the EDI is streamed in from a socket or other non-file location.
#
# If there is a lot of data, it probably would be better to store in a
# file and use the method above.
#
open (TFH, '< ./INV.110.SAMPLE');
binmode(TFH);
my $edi;
while(<TFH>)
{
    $/ = '';
    chomp;
    $edi .= $_;
}
close(TFH);

print $conv->convertdata($edi);