I was unable to do this, but this might get you in the right area, I assume this is for Windows, if not, sorry.
Try the
Win32::API module, and I belive the Win32 API call is
GetDC() in
user32.dll. The quick test script I ran segfaulted perl, so I doubt this will work, but I just put 5 minutes into looking, and trying it out, this will at least point you in the right direction.
Just so you see my test script (which might be wrong with the Win32 API call, since I've never used this module):
use Win32::API;
my $screenshot = new Win32::API("user32", "GetDC", '', 'N');
my $shot = $screenshot->Call();
Update It appears there is also another GetDC in Windows land that is dealing with Getting the Domain Controler, unlike this one, which is Device Control, or something like that. Hope this helps.