use Storable;

sub go : Path {
    my $user  = $common->{user};            # CMS Stuff: Get the current logged in user
    my $uid   = $user->getInfo()->{id};     # CMS Stuff: Get his userid

    my $storeFile = '/db/users.store';
    my $ts    = localtime( time );

    my $users = ();
    if (-e $storeFile) {
        $users = retrieve( $storeFile );
    }

    $users->{$uid} = $ts;

    store $users, $storeFile;
}