#!c:\perl\bin\perl -w
use strict; 
my $i = 0;
while ($i < 10) {
  $i++;
  print "$i\n";
  system('"C:\Program Files\Internet Explorer\IEXPLORE.EXE" http://abc.com/bbs?=x&b=x&mid=$i');
}