> perl -de0
  ...
  DB<15> $path = 'D:/tmp'

  DB<16> x <$path/x*>
0  'D:/tmp/xref.txt'
1  'D:/tmp/xref_trace'
  DB<17> x (<$path/x*>)[0]
0  'D:/tmp/xref.txt'
  DB<18>