#! perl -slw
use strict;
use threads;

async{
    sleep 4;
    require Tk;
    print for '2 ', keys %INC;

}->detach;

sleep 2;
print for '1 ', keys %INC;

sleep 6;
print for '3 ', keys %INC;