[Bioperl-l] question on abi module

[Ramiro Barrantes]

I have the following simple program

----
#! /usr/bin/perl -w
use strict;
use Bio::SeqIO;

my $filename = shift @ARGV;

my $in = Bio::SeqIO->new(-file => $filename, '-format' => 'abi');
my $bioseq = $in->next_seq();
my $seq = $bioseq->seq();

print $seq."\n";
----

on certain abi files, when it comes to

my $bioseq = $in->next_seq();

it prints an error

fread_abi(): Base positions are not in order. Fixing
fread_abi(): Base positions are not in order. Fixing
fread_abi(): Base positions are not in order. Fixing
...ad infinitum

and fills the whole error log and takes over the computer.

What can I do? 

Thanks, Ramiro