#!/usr/local/bin/perl

# AppSys: Manage Profile

use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use Switch;

my $cgi = CGI->new;

my $control = 'Search';
switch ( $control ) {
	case ("Search") { 
		print $cgi->header;
		print $cgi->start_html;
		print $cgi->p("Search");
		print $cgi->end_html;
		 }
}