Help for this page

Select Code to Download

Select or download this

 
sub accept_out_cclose_after {
  my $tkxfsr=shift;
...
  $tkxfsr->{after}{$afterid}{eventid}=$send_id;
  $tkxfsr->{after}{$afterid}{delay}=$delay;
  }

Select or download this
```
perl huh-after.pl -esub 2
```