Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
$file_url{$_->attr ('file_url')} = $_->as_text () for @fileElts;

print "$_: $file_url{$_}\n" for keys %file_url;

Select or download this

http://server.domain/file2.zip: 
    file2.zip
   
http://server.domain/file1.exe: 
    file1.exe