my @txt = qx(dir /B "*.eit");
...
my $ctxtf = qx(type "$_");