E-mail

##
##

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $browser = LWP::UserAgent->new;
my $response = $browser->post(
  'http://enm.lobos.nih.gov/start.html',
  [
	"upload"=> ["C:\\protean\\1o1l\\1o1l.pdb"],
	"jobname"=> "PRT1",
        "case"  => "2",
	"email" => "email\@gmail.com",
	"optin" => "true",
	"upload2"=> ["C:\\protean\\1o1l\\1o1l.pdb"],

  ],
  'Content_Type' => 'form-data',
);
die "Error: ", $response->status_line
 unless $response->is_success;
 
print $response->content;

exit;