$ perl test.pl *.txt

##</code><code>##

$VAR1 = [];

##</code><code>##

use Win32::Autoglob;