#!/usr/bin/perl

use warnings;
use strict;

use Win32::GUI;

my $desk = Win32::GUI::GetDesktopWindow();
my $dw = Win32::GUI::Width($desk);
my $dh = Win32::GUI::Height($desk);

print "${dw}x$dh\n";