in reply to rename file extension

(old_filename, undef, $ext) = ...

I suppose there is a $ missing in front of old_filename

In Section Seekers of Perl Wisdom