Select Code to Download

my $confpath;
my $servername;
...
$confpath = "/export/mksysb";
$filepath = "/export/mksysb";
$filemaxage = "360";

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

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

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

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

        mkdir("$filepath/$servername");

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