In our aXML document we want to put something like :

  <h1>Files</h1>
  <hr>
  <walk>/home/user/Desktop/</walk>
  

##</code><code>##


 my @filelist = glob($data);
 
 $result = join('<br>',@filelist);
 
#N.B I haven't tested the above code, it's for example/illustration purposes only.


##</code><code>##


  lets say we want a hyperlink for each file :

  <walk dir="/home/username/Desktop">
    [link to="<d>filename</d>"]<d>filename</d>[/link]<br>
  </walk>

  or a hyperlink and a delete link :

  <walk dir="/home/username/Desktop">
    [link to="<d>filename</d>"]<d>filename</d>[/link] -
    [link action="deletefile" filename="<d>filename</d>"]Delete[/link]<br>
  </walk>


##</code><code>##


 my @filelist = glob($command_args->{'dir'});
 
 my @results;
 my $mask;

 map { 
      $mask = $data;       
  
      $mask =~ s@<d>filename</d>@$_@gs;
     
      push (@results, $mask);
     } @filelist;

 $result = join('',@results);
 

##</code><code>##


<table>
  <walk dir="/home/username/Desktop">
    <tr>
      <td>Filename :</td>
      <td><d>filename</d></td>
      <td>[link to="<d>filename</d>"]Show[/link]</td>
      <td>[link action="deletefile" filename="<d>filename</d>"]Delete[/link]</td>
      <td>[link action="archivefile" filename="<d>filename</d>"]Add to archive[/link]</td>
    </tr>
   </walk>
 </table> 


##</code><code>##


  <walk dir="<qd>dirname</qd>">
   ...
    ...
  </walk>


##</code><code>##


  <walk dir="/home/username/Desktop">
    <insertfile>common/dirmask1.aXML</insertfile>
  </walk>