found bug on perl 5.10.1 and renamed files