Nitpick: rather than use backticks in void context (ie throwing away the result), use
perlfunc:system.
system qw(updquery -sdate 26-june-2002.02:00:00 -edate 02-july-2002.00:00:00 -brtype golden -status closed);
____________Makeshifts last the longest.