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.