Help for this page

Select Code to Download

Select or download this

while (my $row = $sth->fetchrow_hashref) {  
    for my $k (keys %$row) {
...
# SDescr: -
# LDescr: -
# Obj: 20140000020