in reply to Perl stricter than my OS regarding file/dir names
Are you initializing $dir or $current_filename with values from STDIN? If so, chomp'ing them might help.
dsb
This @ISA my( $cool ) %SIG
dsb
This @ISA my( $cool ) %SIG
In Section
Seekers of Perl Wisdom