Select Code to Download

use warnings;
use strict;
...
      <N>5</N>
    </DS>
  </COM>

@array = `ls file* | awk '{print \$0}'`;

@array = glob 'file*';