sub get_File_Data()
{
  my $web = new CGI;
  my $filehandle = $web->upload('upload');
  my @file = <$filehandle>;
  my @sequences;
  
  my $seqIO = Bio::SeqIO->new(-fh => \*$filehandle, -format=>$format);
  my $fh = Bio::SeqIO->newFh(-fh => \*$filehandle, -format=>$format);

  my $sequence;
  
  while($fh != -1)
  {
   $sequence = stream->next_seq
   @sequences = $sequence;
  }

}