Perl cannot short out a screen unless there is a electrical problem in your monitor. :)

Now, for a X11 screenshot using Perl and GTK2, use this code: Grabbing that mouse cursor in X11