�ｿｽv�ｿｽ�ｿｽ�ｿｽO�ｿｽ�ｿｽ�ｿｽ~�ｿｽ�ｿｽ�ｿｽO�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ

�ｿｽygetimages.pl�ｿｽz
use LWP::Simple;
use warnings;
use strict;

#�ｿｽ鞫懶ｿｽ�ｿｽURL�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
my @url = ();

#�ｿｽt�ｿｽ@�ｿｽC�ｿｽ�ｿｽ�ｿｽ�ｿｽ
my $time = time;

for(my $i = 0; $i < scalar(@url); $i++){
	
	my $html = get($url[$i]);
	my $prefix = get_prefix($url[$i]);
	open(OUT, ">$time$i$prefix");
	binmode OUT;
	print OUT $html;
	close(OUT);
	my $count = $i + 1;
	print "$count�ｿｽ�ｿｽ�ｿｽﾚ奇ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽ�ｿｽ\n";

}

#�ｿｽg�ｿｽ�ｿｽ�ｿｽq�ｿｽ�ｿｽ�ｿｽ謫ｾ�ｿｽ�ｿｽ�ｿｽ�ｿｽ
sub get_prefix{
	my $url = shift;

	if(rindex($url, ".jpg") != -1){
			return ".jpg";
	}elsif(rindex($url, ".jpeg") != -1){
			return ".jpeg";
	}elsif(rindex($url, ".gif") != -1){
			return ".gif";
	}elsif(rindex($url, ".png") != -1){
			return ".png";
	}else{
			return ".jpg";
	}
}