my $ret = GetOptions( "u|updated:s");
my $update = $opt_u || die "Usage: $0 -u update_ID\n";

##</code><code>##

Global symbol "$opt_u" requires explicit package name at c:/Perl/MyScripts/updlnt.pl line 27.