my $s = STR->new;
$s->one;
$s->two;
$s->three;