my $pid = open2(*Reader, *Writer, 'primer3_core.exe' );
    print Writer "$primer3input\n";
    close Writer;
    my @result = <Reader>;
    print "@result";

##</code><code>##

my $result = `cat tempfile | primer3_core.exe`;