#!/usr/bin/perl

for ($i=1; $i<118; $i++) {
  $filename = sprintf("../v%03d.jpg\n",$i);
  print $filename;
  `wmsetbg $filename`;
} #end