Well, I couldn't let this go without giving a simple Tk solution. It works on linux, and probably should work on Windows.

#!/usr/bin/perl
use Tk;

my $mw=tkinit;
$mw->withdraw;

$height = $mw->screenheight;
$width = $mw->screenwidth;
$depth = $mw->screendepth;

print "height->$height  width->$width  depth->$depth\n";
Tk::exit;

MainLoop;
[download]