#!/usr/local/bin/perl
for($i=2; $i<=75; $i++) {
if($i<10) { $file = "00".$i; } 
else { $file  = "0".$i; }
$j = $i-1;
print "$j\n";
`cp $file.gif cw_$j.gif`;
}
