#!/usr/bin/perl -w

use 5.008;
use threads;
use strict;
use Win32::OLE;

my $thr = threads->new(\&sub1);
my @data = $thr->join();

sub sub1 {
	print "INFO: In sub\n";
	return "Fifty-six", "foo", 2;
}