sub connectdb {
	my $user       = 'user';
  my $password   = 'password';
	my $host       = 'host';
	my $sid        = 'SID';
	return (DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $password,
		{PrintError => 1, RaiseError => 1, AutoCommit => 0}));
}