# Pull the DB record for the service_number passed 
my $dbh = DBI->connect( "dbi:Oracle:$dbase", $user, $pass,
  { AutoCommit => 0, RaiseError => 1, PrintError => 0 })
		or die $DBI::errstr;
	my $sth = $dbh->prepare(
		# sqlcode
		"select 
		siteid, monthly_cost
		from comms.services where service_number = ?"
		);
	$sth->execute($svce);