↓オブジェクト指向風に書き直すと

sub neko {
　my $q = shift or die $!;

　return threads->new(class {
　　private $namae = '';

　　function namae() {
　　　　$namae = $$message{namae};
　　　　print "命名：$namae\n";
　　}
　　function nake() {
　　　　print "にゃーにゃー\n";
　　}
　　function nake() {
　　　　print "$namaeが寝ます。\n";
　　　　sleep(3);
　　　　print "$namaeが起きました。\n"
　　}
　　function sine() {
　　　　print "$namaeが死んでしまいました\n";
　　　　last;
　　}
　});
}