...
use Win32::OLE;
my $DX83D = Win32::OLE->new( 'DirectX8.Direct3DCreate' );
...