Code: #!/usr/bin/perl use strict; use warnings; die "Usage: $0 n" unless @ARGV > 0; my

Code: #!/usr/bin/perl use strict; use warnings; die “Usage: $0 n” unless @ARGV > 0; my ($fasta_file, $coord_file) = @ARGV; open FASTA, “<" . $fasta_file; my $seq_id; my $dna_string = ""; my $count_seq = 0; while () { my $line = $_; chomp $line; if ($line =~ /^>(.+)$/) { $seq_id = $1; $count_seq++; next; } else { $dna_string .= $line } } open COORD, “<" . $coord_file; while () { my $line = $_; chomp $line; next unless $line =~ /^(d+)s+(d+)s+(d+)s+([+-][123])s+(S+)s*/; my ($id, $x, $y, $frame, $score) = ($1, $2, $3, $4, $5); print "Putative Genesn"; print ">$id start_coord = $x, stop_coord = $y, frame = $frame, score = $scoren”; print &orf_seq($x, $y, $frame),”n”; } sub orf_seq { my ($x, $y, $frame) = @_; my $orf; if ($x