Have you tried dumping the filename before/after with DD()?  sub DD { scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump; }