Voilà le code:

#!/usr/bin/perl -w

use threads;

$thr = threads->new(\&sub1);

sub sub1 {
    print "Dans le thread\n";
}

Voilà le message d'erreur:

A thread exited while 2 threads were running.