perl output working