#! perl -slw
use strict;
use threads;

package Test;

sub new{ bless [], $_[0] }
sub exec{ print 'exec method called from thread: ', threads->tid }

package main;

my $o = Test->new;
$o->exec;

async{
    $o->exec;
}->detach;

sleep 1;

$o->exec;

__END__
c:\test>tobj
exec method called from thread: 0
exec method called from thread: 1
exec method called from thread: 0