perl -e 'for (glob ("*.*")){print "$_\n" if (-T $_);}'