Select Code to Download

...
tie %th, 'My::DB::User', {-where=>'active=1'};
...
{   $th{'_CURRENTROW_'} = $i;
    print "$th{'username'} has been an active member since $th{'create
+d'}\n";
}

...
while ($th{'_CURRENTROW_'} < $th{'_ROWCOUNT_'})
{   #do something, then:
    $th{'_CURRENTROW_'}++;
}