#!/usr/bin/perl -w
# pl8.pl -  query California license plate database
 
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Headers;


my $browser = LWP::UserAgent->new;
my $request = HTTP::Request->new();
my $url="http://enm.lobos.nih.gov/prep_job.php";
my $file="C:/protean/1o1l/1O1L.pdb";

my $response = $browser->request( 
  POST $url, 'Content_Type' => 'form-data',
  Content=>[
    "upload"=> [$file],
    "jobname"=> "PRT1",
    "case"  => "2",
    "email" => "sinatureli\@gmail.com",
    "optin" => "true",
    "upload2"=> [$file],
  ],
  
);
die "Error: ", $response->status_line
 unless $response->is_success;
 
print $response->content;

exit;
[download]