... for ($second=60; $second>0; --$second) { sleep 1; last unless print $client "$second\n"; } close $client; ...