make some changes for perl stuf