#!/usr/bin/perl -w 
use File::Copy; 
use File::Find; 

find(\&movefile, "d:\\webpics"); 

sub movefile {
	$count=1; 
	if (/\.jpg$/) { 
		move($_, "d:\\images\\image$count.jpg"); 
		$count++; 
	}
}