KristopherPaulsen
9/12/2017 - 4:13 PM

gistfile1.txt

# ------------------ Require all files in directory ------------------------ #
package test;                                           
use strict;                                             
use warnings;                                           
use File::Basename;                                     
                                                        
BEGIN {                                                 
    my @raw_file_names = glob("./*") #path to directory;
    foreach my $raw_file_name (@raw_file_names) {       
        print basename($raw_file_name);                 
    }                                                   
}