I finally found an API call EnumFonts but it looks pretty hairy to set up. Anyone ever used this API that could help me write the perl code to call it?

#Just a guess...
$EnumFonts = new Win32::API("gdi32.lib","EnumFonts", [N,L,L,L],N);
[download]