in reply to getting files names

ummm… 

function($_) foreach (glob "$folder/*");

[download]

In Section Seekers of Perl Wisdom