Select Code to Download

 perl -e 'my @arr=glob ("*.*");print "$_\n" for (@arr)'

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