forea­ch my $file (</pa­thnam­e/*>) {

Yuck. Using glob is an excellent idea (I've never seen the utility in opendir()), but for the sake of sanity use the function form instead:

foreach my $file (glob("/pathname/*")) {

=cut
--Brent Dax
There is no sig.