#!/usr/bin/perl

use warnings;
use strict;

my $seconds = $ARGV[0] || 2;

while (1) {
    my $file = time;
    system "xwd -display :0.0 -nobdrs -root -silent "
          ."| convert - $file.png";
    sleep $seconds;
}