#!/usr/bin/perl
use strict;
use warnings;

# quality trimming of fastq file  

print "Write the window length\n";
my $kmer = <STDIN>;
chomp $kmer;

print "Write the minimum quality score cut-off\n";
my $cut_off = <STDIN>;
chomp $cut_off;

my $file = "lib-pool-fosmid.fastq";