#!perl

require "./xbase.pl";

$xopen = &xlib::x_open_display($ENV{"DISPLAY"});
die $xlib::status if not defined $xopen;

@lf = &xlib::x_getfontpath($xopen);
print "fontpath: ", join(", ",@lf), "\n";

close $xopen->{"XFD"};
