sub generate_id { my $id = $ToBase62->(time) . $ToBase62->($$) . ToBase62->( rand($$) ); return $id; }