Select Code to Download

my $filter = {'_id' => 'userid'};
my $update = { '$inc' => { 'seq' => 1} };
...
$col->update($filter,$update);
my $id = $col->find_one($filter)->{'seq'};
print $id;