use File::Find;
find (\&wanted, 'e:/inetpub/wwwdev');
sub wanted 
{
my $size = -s;
if ($size > 102400)
	{
	$Find::File::name = $name;
	print "$name, $size\n";
	}
}