my $outfile = "result.txt";
open my $OUT, ">", $outfile or die "could not open $outfile $!"; # idiomatic way to open a file for writing

##</code><code>##

print $OUT "text to be printed to the file\n";

##</code><code>##

close $OUT;

##</code><code>##

use strict;
use warnings;

##</code><code>##

#!/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";