#!/usr/bin/perl

my $z = "001";

for (1..10) {

system("echo $z\n"); $z++;

}