#!/usr/bin/perl
# -*- perl -*-

$base = "fb-smt";

$| = 1;
$id = 1;

while (1) {
    $id = &next_id ();
    printf "grab $base-$id.png ...";
    $junk = <STDIN>;
    system "xwd -root | xwdtopnm | pnmtopng > $base-$id.png";
    $id ++;
}

sub next_id {
    while ( -f "$base-$id.png" ) {
	$id ++;
    }
    return $id;
}
