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

$base = "fb-smt";

$| = 1;

$id = $ARGV[0];
if ($id <= 0) {
    $id = 1;
    $id = &next_id();
}

printf "grabbing $base-$id.png ...";
sleep(3);
system "xwd -frame | xwdtopnm | pnmtopng > $base-$id.png";
$id ++;

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