use threads;
@t = map{ 
    threads->create( 
        sub{ 
            print threads->self->tid; 
            sleep 60; 
            print threads->self->tid; 
        } 
    ) or die "threads->create failed $^E" 
} 1 .. 1000;