Siehe Tk::WinPhoto, aber das läuft leider nur auf X11-Systemen.

Oder du versuchst Imager::Screenshot.

Oder du nimmst Tk::CanvasFig und konvertierst das erzeugte .fig mittels fig2dev nach jpeg (gibt es vielleicht auch für Windows, das Paket heisst transfig).

Postscript könnte man mit ghostscript nach jpeg wandeln (gibt es auf jeden Fall für Windows).