#!/usr/local/bin/perl
use warnings;
use strict;
use Bio::SeqIO;
use Bio::Seq;
use Bio::Tools::Primer3;
use Data::Dumper;