use Win32::API;
my $screenshot = new Win32::API("user32", "GetDC", '', 'N');
my $shot = $screenshot->Call();