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

##</code><code>##

my $seqio = new Bio::SeqIO( 
   -file => "<(PRIVATE)/fastaUplist.fa",						        
   -format =>'fasta');

my $seq = $seqio->next_seq;

my $primer3 = Bio::Tools::Primer3->new(	
   -seq=>$seq,
   -path=>"(PRIVATE)/primer3_core"
);

my $argref = $primer3->arguments();
print Dumper($argref);