andrewjpage

#!/usr/bin/env perl

use strict;
use warnings;
use Bio::SeqIO;
no warnings 'uninitialized';

my $in  = Bio::SeqIO->new(-file => $ARGV[0] , '-format' => 'Fasta');
my $first_size = 0;
my $counter  = 0;