DBI
database
user
password
dbh
DBI
database
user
password
database
DBI
sth
dbh
prepare
DBI
rc
sth
execute
DBI
sth
sth
sth
firstnme
lastname
sth
fetchrow
firstnme
lastname
DBI
errstr
DBI
sth
finish
dbh
disconnect
snazzle
thingie
x		# 72:my $x;
x
x
x
x
x
x
x
s
var
s
var
s
var
Price		# 95:The price is ...
Price
cost
cost
some_var	# 112:if ($some_var) ...
myfunc		# 136:myfunc(<< "THIS" ...
var		# 147:$var =~ / ...
var
var
var
var
var
var
var
var
var
var
var
o		# 161:my @o = ...
contents
v
o
v
s		# 187:$s = ' ...
s
s
s
s
s
s
s
s
s
s		# 197:$s = " ...
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s		# 215: $s = qx' ...
s
var
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
Cannot
embed
punctuation
here
except
sigils
s		# 226:$s = / ...
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s		# 234:$s = m' ...
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s
var
s		# 243:$s = qr' ...
s
var
s		# 245:$s = s{ ...
var
var
s
var
var
s
var
var
s
var
var
s
var
var
s
var
var
s
var
var
s		# 259:$s = s' ...
s
var
var
s		# 263:$s = tr{ ...
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
s
abc		# 283:print "$abc ...
abc
s
var
s
var
abc
svar		# 301:$ svar
a
var
this		# 329:my $this
this
filename
UCFILE
this
this
UCFILE
this
KK		# 337:my $KK
bref
bhash
bref		# 340:{ print $bref
KK
bhash
KK
bref
KK
bhash
KK
b
bref		# 341:$bref->{int}
bref
bref
a_rate
bref		# 342:$bref->{"int"}
bref
bref
var		# 343:$var =
table
k
r
s
t
u
html		# 351:push @$html
arr		# 354:push @arr
key
val
myfunc2		# 358:myfunc2(
var
var
line1
line3
line5
k
d
a		# 378:%a =
s