threads->create( sub { 
    require STR; 
    STR->import; 
    my $s = STR->new;
    $s->one;
    $s->two;
    $s->three;
} )->join;