@files = glob( $path . "/*.xml );
print join ( "\n", @files );
<code>
This returns:
<code>
C:/Documents
and
Settings/UserX/Desktop/WORK/data/var