$dirname="C:\\Users\\Me\\Desktop\\Cluster1"; opendir(DIR, $dirname); @FILES= readdir(DIR); foreach $FILE (@FILES){ $fil_path = File::Spec->rel2abs($FILE); print "File path:", $fil_path; } closedir DIR;