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

use threads;

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