my $confpath;
my $servername;
my $filepath;
my $filemaxage;

$confpath = "/export/mksysb";
$filepath = "/export/mksysb";
$filemaxage = "360";

##</code><code>##

my $confpath   = '/export/mksysb';
my $filepath   = '/export/mksysb';
my $filemaxage = 360;

##</code><code>##

while(<FILE>){
    chomp($servername = $_);

##</code><code>##

while ( my $servername = <FILE> ) {
    chomp $servername;


##</code><code>##

        if (-M $_ > "$filemaxage"){

##</code><code>##

        mkdir("$filepath/$servername");

system("nim -o define -t mksysb -a server=master -a mk_image=yes -a location=$filepath/$servername/$servername\_`date +%m%d%Y` -a source=$servername $servername\_`date +%m%d%Y`");