added perl read file