#!/usr/bin/perl
use warnings;
use strict;
use Gtk2 -init;

my $s = Gtk2::Gdk::Screen->get_default;
my $w = $s->get_root_window;

my $p = Gtk2::Gdk::Pixbuf->get_from_drawable (
            $w, undef, 0, 0, 0, 0, $s->get_width, $s->get_height);

$p->save ($0.'.jpg', 'jpeg', quality => 10);
[download]