#! perl -slw
use strict;
use threads;

async{ print 'from thread' }->detach;

require OpenGL;
OpenGL->import( ':all' );
...