perl write line