Try

#!/usr/bin/perl
use strict;
use warnings;

use threads;

my $t = threads->create(sub { print("Hello! I am a thread\n"); })->joi
+n();
[download]

The method threads->new() is simply an alias for threads->create() so feel free to change that.

If in doubt check the documentation.

Hope this helps.

Martin