#! perl -sw
use 5.010;
use strict;
use threads;

sub t{
    say 'Hi from thread';
}

sub doit {
    say 'Before';
    my $t = threads->create( \&t );
    say 'After';
}

1;