Select Code to Download

my @files = grep { -f } map { "$dir/$_" } readdir($dirhandle);

my @files = map { -f $_ ?"$dir/$_" : () } readdir( $dirhandle ) ;