get first monitor resolution

use lib qw(/usr/lib/libDrakX);

use Xconfig::parse;
use Xconfig::xfree;
use Data::Dumper;

my $raw_X = Xconfig::xfree->new(Xconfig::parse::read_XF86Config("/etc/X11/xorg.conf"));
my $default_script = $raw_X->get_default_screen();

my $modeline;
foreach ($raw_X->get_Sections('Monitor')) {
    if ($default_script->{Monitor}->{val} eq $_->{Identifier}->{val}) {
        $modeline = $_->{ModeLine}->[0]->{'val'};
        last;
    }
}
my (undef, $x, $y, undef )= split / |x|\"/, $modeline;
$modeline = { X => $x, Y => $y};

print Dumper($modeline);