$tkxfsr->{after}{$afterid}{sub}=sub{

                   return unless ($tkxfsr->{after} && $tkxfsr->{after}{$afterid} && $tkxfsr->{after}{$afterid}{q}); 

                   if (scalar(@{$tkxfsr->{after}{$afterid}{q}})) { 
                       accept_out_cclose_after($tkxfsr,$afterid,int(rand(2000))); 
                       my $msg=shift @{$tkxfsr->{after}{$afterid}{q}}; 
                       print 'LIST '.$msg."\n";
                       } 

                   else { 
                     print 'DONE '.$id.' 0'."\n";
                     delete $tkxfsr->{after}{$afterid};
                     } 
                  }; 

##</code><code>##

invalid command name "::perl::CODE(0x96f045c)"