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

my $file = $ARGV[0];
open INFILE, "<$file" or die "$0:  Can't open file $file: $!";

for (my $trial = 1; $trial <=2; $trial++)
{
   seek(INFILE,0,0);
   print "Trial $trial\n";

   my $i =1;
   my $in = Bio::SeqIO->new(-format => 'fasta', -noclose => 1, -fh => \*INFILE);
   while( my $seq = $in->next_seq()  ) {
      print $i++, " : ", $seq->seq(), "\n";
   }

}