#! perl -slw
use strict;
use threads;
use Win32::OLE qw[ in with ];

my $thread = async {
    sleep 3;
};

$thread->join;