use strict;
use LWP;
my $protein = "MSSSTPFDPYALSEHDEERPQNVQSKSRTAELQAEIDDTVGIMRDNINKVAERGERLTSI";
my $browser = LWP::UserAgent->new;
$browser->env_proxy();
my $response = $browser->post(
  'http://dis.embl.de/cgiDict.py',
   # That's the URL that the real form submits to.
  [
'key' => "process",
'SP_entry' => "",
'sequence_string' => $protein,
'smooth_frame' => "8",
'peak_frame' => "8",
'join_frame' => "4",
'fold_coils' => "1.20",
'fold_rem465' => "1.20",
'fold_hotloops' => "1.40",
'plot_title' => "",
'doApplet' => "true",
'tango_PH' => "7.40",
'tango_T' => "298.15",
'tango_I' => "0.02",
'tango_TFE' => "0.00",
'fold_tango' => "1.00",
  ] 
);
die "Error: ", $response->status_line, "\n"
 unless $response->is_success; 
open(FILE, '>D:\perl\tmp2.html') || die "Can't write-open out_file: $!";
my $dat=$response->content;
      $dat=~s/"\//"http:\/\/dis.embl.de\//g;
      print FILE $dat;
      close FILE;
      system('C:\Program Files\Internet Explorer\IEXPLORE.EXE','D:\perl\tmp2.html');