#!/usr/bin/perl -Tw use strict; use CGI qw(:standard); print "Content-type: text/html\n\n"; my $cgi = new CGI; my $filter = $cgi->param('filter'); print < Phosphorylome Database
 
 
Quick Search
  
 
 
Paper Full Text
 
 
Rough Data Download
 
 
Supplementary Materials
 
 
More on protein chip
 
 
 
 
 
 
 
 
 
 
 "; print ""; print ""; print ""; print ""; print ""; print ""; print ""; } elsif($filter == 1) { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; } elsif($filter==2) { print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; } print <
HTML1 if ($filter == 0) { print ""; print "
"; print "
"; print ""; print ""; print "
"; print "
"; print "
"; print ""; print ""; print "
"; print "
"; print "
"; print ""; print ""; print "
"; print "
"; print "
"; print ""; print ""; print "
"; print "
"; print "
"; print ""; print ""; print "
"; print "
"; print "
"; print ""; print ""; print "
"; print "
Last updated: 03/15/2005
HTML2