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