use strict;
use warnings;
use Thread;
use Win32::OLE;
Win32::OLE->Option(Warn => 3);

my $thread = Thread->new(\&TEST_THREAD, ("arg1", "agr2"));
my $rc = $thread->eval;
print $rc;
print "\nI'm ending now.\n";

sub TEST_THREAD{
  my ($arg1, $arg2) = (@_);
  return "$arg1\t$arg2";
}