my $result=Select($id,\$dbh); 
$dbh->disconnect;

##</code><code>##

sub SelectProfile { 
	 my $id=$_[0]; my $dbh=$_[1];

	 my $selectquery = "SELECT *
                 FROM people
                  WHERE id = '$id'";

        my $sth= $$dbh->prepare($selectquery);
        $sth->execute();
        my $rowdata=$sth->fetchrow_hashref;
        $$dbh->disconnect;
     
        
     	return $rowdata;
}##END Select
############################################################