use strict;
use warnings;

use Bio::SeqIO;
my $file = "Qual.txt";
my $qual_obj = Bio::SeqIO->new(-file =>"<$file",-format=>'qual',);