Select Code to Download

$num = '0000';
for(1..1000) {
  print ++$num,"\n";
}