Thread verwaltung

[Martin]

Hallo zusammen!

Ich habe ein kleines Problem mit der Thread-Verwaltung in Perl!
Mein Problem:

z.B.:
##########################################
#!/usr/bin/perl

use strict;
  use Thread;

$th1 = Thread->new(&main::subr01);
  $th2 = Thread->new(&main::subr02);
  $th1->join();
  $th2->join();

sub subr01
{
    while(<>)
    {
        print $_;
    }
}

sub subr02
{
    while(1)
    {
         print 'leerlauf';
    }
}
##########################################

Ich habe 2 Threads die unterschiedliche Funktionen haben! Ich möchte jetzt aus einem Thread hearus den 2. Thread beenden!

Ich grüble und suche jetzt schon seit einer Stunde doch mir ist leider noch keine Passende Lösung untergekommen.
Habt ihr eine Ahnung wie ich dieses Problem lösen könnte?
Wie kannn ich einen Thread beenden?

Gruß Martin