warn "before select: " . time;
select...
warn "after select: " . time;