Select Code to Download

#!/usr/bin/perl -w
use strict;
...

foreach $foreachvar (</xxx/*>)
   { if (-f $foreachvar) {print "$foreachvar \n" } }