Using an X server under a *NIX system, you can grab the screenshot directly from perl by using:

$image->Read(filename=>"X:", display=>$DISPLAY, geometry=>$geometry); #not tested