Select Code to Download

my $dir = '/path/to/files';

...
  opendir( DH, $_[0] ) or die 'Cannot open ' . $_[0];
  return grep { -f $_ } readdir(DH);
}->( $dir );