Select Code to Download

use strict;
use DBI;
...
        my $ref = pop (@stack);
        $rowcnt += $sth->execute($uid,$size,$mtime,$ref->[0],$ref->[1]
+,$cnt++);
}