#!/usr/bin/perl

use threads;

my @threads = undef;

for my $i ( 1 .. 3 )
{
    push @threads, threads->create(\&get_now, $i);
}
my $thread = undef;
foreach $thread (@threads)
{
    $thread->join();
}

sub get_now
{
    my $num = shift;
    print "thread $num time() \n";
    sleep  1 ;
    return  1 ;
}

Unmatched right curly bracket at ./probe line  23 , at end of line
syntax error at ./probe line  23 , near "}                                                                                                                                                                                                     }"
Execution of ./probe aborted due to compilation errors.