#!/usr/bin/perl
use threads;


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

sub sub1() 
{
}

my @ReturnData = $thr->join;
print @ReturnData;