#!/usr/bin/env perl

use strict;
use Carp;
use warnings;

my $data = `xrandr 2>&1`;

if ($data =~ m@Screen 0:.+current (\d+) x (\d+)@)
{
    print "${1}x${2}\n";
}