my $a=1;
my $URL="http://www.slime.com.tw/abc";
open (file,"+> c:\\url.htm");
while($a<=210){
if (length ($a) == 1) {$a = '00'.$a;} //如果數值為個位數，會加上00在前面
if (length ($a) == 2) {$a = '0'.$a;} //如果數值為兩位數，會加上一個0在前面
print file "\<a href\=\"$URL$a\.JPG\" \>$a\<\/a\>\<p\>\n";
$a++;
}
close (file);