Select Code to Download

use strict;
use File::Spec::Functions;
...
print "base=$base path=$path type=$type\n";

print catfile($path, $base, '.xml');  #  test\.xml

print catfile($path, $base . '.xml');