Select Code to Download

#!/usr/bin/perl --
use strict; 
...
my @files = grep { $_->is_file } @files_dirs;
my @dirs  = grep { $_->is_dir  } @files_dirs;
...

#!/usr/bin/perl --
use strict; 
...
my @files = file_list( 'C:/' );
my @dirs  = dir_list( 'C:/' ); 
...