Help for this page
#!/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:/' ); ...