my $friendlist = sub {
        my ($uid, $limit) = @_;
        $limit=1 unless defined $limit;
        $p->callAPI('/FriendsFans/getFriendsByOffset', 'user_id' => $uid, 'limit' => $limit);
        #$json;
};
my $sch=$json->decode($friendlist->(4263676,2));