# psuedo

sub tick
{
# stuff....
   $self->forkit( run => \&task1, channel => $channel,
      arguments => [ $arg1, 20 ] ); # Where second arg is for a sleep.
   $self->forkit( run => \&task2, channel => $channel,
      arguments => [ $arg1, 40 ] ); # Where second arg is for a sleep.