my $browser = LWP::UserAgent->new;
  my $url = "http://www.jcat.de/Result.jsp";
  #submit
  my $response = $browser->post( $url,
    [ 
	  'Sequence' => $ori_seq,#42 Escherichia coli (strain K12)
	  'seq_type' => 'DNA',
	  'genome' => '42 Escherichia coli (strain K12)',
	  'hairpin' => 'checked',
	  'quickChange' => 'checked',
    ]);