Select Code to Download

my $serpath="D:\\eproof\\htdocs\\*\\work";

my @xmlfile = File::Find::Rule->file()
->name( '*.xml')
->in( glob $serpath );

#!/usr/bin/perl --

use strict;
...
file temptest1/15/work/2.xml
wow temptest1\15\work/1.xml
wow temptest1\15\work/2.xml