Search Database: <select NAME="DATALIB">
<option VALUE="oasis_smart"> Smart v3.3 - 569 PSSMs
<option VALUE="oasis_pfam"> Pfam v6.6 - 3071 PSSMs
<option VALUE="oasis_sap" SELECTED> All - 3693 PSSMs
</select>

##</code><code>##

#!/usr/bin/perl

use strict;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $string = ">CG2B_MARGL\n ";
$string .= "MLNGENVDSRIMGKVATRASSKGVKSTLGTRGALENISNVARNNLQAGAK\n";
$string .= "KELVKAKRGMTKSKATSSLQSVMGLNVEPMEKAKPQSPEPMDMSEINSAL\n";
$string .= "EAFSQNLLEGVEDIDKNDFDNPQLCSEFVNDIYQYMRKLEREFKVRTDYM\n"; 
$string .= "TIQEITERMRSILIDWLVQVHLRFHLLQETLFLTIQILDRYLEVQPVSKN\n";
$string .= "KLQLVGVTSMLIAAKYEEMYPPEIGDFVYITDNAYTKAQIRSMECNILRR\n";
$string .= "LDFSLGKPLCIHFLRRNSKAGGVDGQKHTMAKYLMELTLPEYAFVPYDPS\n"; 
$string .= "EIAAAALCLSSKILEPDMEWGTTLVHYSAYSEDHLMPIVQKMALVLKNAP\n"; 
$string .= "TAKFQAVRKKYSSAKFMNVSTISALTSSTVMDLADQMC";


my $req=POST 'http://www.ncbi.nlm.nih.gov/Structure/cdd/wrpsb.cgi',
   [ SEQUENCE=>"$string", 
     DATALIB=>'oasis_sap', 
     INPUT_TYPE=>'fasta', 
     EXPECT=>'0.01',
     FILTER=>'T', 
     SMODE=>'0', 
     NHITS=>'50', 
     GRAPH=>'2', 
     PAIR=>'2', 
     GW=>'-1'];


 print "Content-type: text/html\n\n";
 print $ua->request($req)->as_string();