Select Code to Download

  $wrapper = sub {
    $self->unsubscribe($name => $wrapper);
    $cb->(@_);
  };

#! perl -slw
use strict;
...
}

once for 1 .. 1e9;