unlink ("plget.txt");
print "URLを入力してください。(必須): ";
$url = <STDIN>;
chomp($url);
print "最小値を入力してください。(必須): ";
$head = <STDIN>;
print "最大値を入力してください。(必須): ";
$tail = <STDIN>;
print "0埋めの桁数を入力してください。(=>0？): ";
$zeroume = <STDIN>;
chomp($zeroume);
print "拡張子を入力してください。(=>jpg?): ";
$kakuchoshi = <STDIN>;
chomp($kakuchoshi);
print "「数字以降の文字列」を入力してください。(=>Null?): ";
$aftint = <STDIN>;
chomp($aftint);
foreach $count ($head .. $tail) {#頭の数字、お尻の数字
select (OUT);
  open (OUT, ">>plget.txt");
	print $url;#URL
	if ($zeroume == 0) {
		printf "%0d", $count;#桁数
	} elsif ($zeroume == 1) {
		printf "%01d", $count;#桁数
	} elsif ($zeroume == 2) {
		printf "%02d", $count;#桁数
	} elsif ($zeroume == "3") {
		printf "%03d", $count;#桁数
	} elsif ($zeroume == 4) {
		printf "%04d", $count;#桁数		
	} elsif ($zeroume == 5) {
		printf "%05d", $count;#桁数
	} elsif ($zeroume == 6) {
		printf "%06d", $count;#桁数
	} elsif ($zeroume == 7) {
		printf "%07d", $count;#桁数
	} elsif ($zeroume == 8) {
		printf "%08d", $count;#桁数				
	} elsif ($zeroume == 9) {
		printf "%09d", $count;#桁数
	} elsif ($zeroume == 10) {
		printf "%010d", $count;#桁数			
	} else {
		printf "%0d", $count;#桁数
	}
	print "$aftint";#数字後の文字列
 if($kakuchoshi){
    print ".","$kakuchoshi\n";#拡張子
 } else {
  print ".jpg\n";
  close OUT;
 }
}
$code = "c:\\getter\\wget -c -t 1 -i plget.txt";
system $code;