Select Code to Download

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

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

close $OUT;

use strict;
use warnings;

#!/usr/bin/perl
use strict;
...
chomp $cut_off;

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