Ich finde die Reihenfolge der Kommandos etwas seltsam.

readline(scalar($fh)) - Was soll das bringen?
Wenn das readline im skalaren Kontext aufgerufen werden soll, dann müsste es doch scalar(readline($fh)) heißen?