Help for this page
my $s = STR->new; $s->one; $s->two; $s->three;
threads->create( sub { require STR; ... $s->two; $s->three; } )->join;