sub getDTSGlobal
#gets DTS global variable values
#returns scalar or list depending on calling context
{
	my @vals;
	for (@_) {
		push @vals, $DTSGlobalVariables->Item($_)->{Value};
	}
	return wantarray ? @vals : $vals[0];
}