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);