my %incoming = &read_input;

# Read information into associated

# array %incoming.
my $mainsearch = $incoming{'yoursearch'}; 
# Fetch the text from the array.
my $maintable = $incoming{'yourtable'}; 
# Fetch the text from the array.

#Start DBI
my $dbh = DBI->connect("dbi:xxxxxxxxxxx", "xxxxxxx", "xxxxxxxx");
my $st = $dbh->prepare("
	select * from (
	select * from qatest
	where ser_app_name
	like upper('%$mainsearch%')
	or att_data
	like upper('%$mainsearch%')
	or mrserver
	like upper('%$mainsearch%')
	or owner_user
	like upper('%$mainsearch%')
	or lan_serv
	like upper('%$mainsearch%')
	or s_contact
	like upper('%$mainsearch%')
	or s_provider
	like upper('%$mainsearch%')
	or prod_deliv
	like upper('%$mainsearch%')
	order by ser_app_name ASC
	) where rownum < 31

        ");
$st->execute();