#!/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;