sub blinkrow { my ($rowtext) = @_; while (1) { print$/x60;sleep 1; print "$rowtext\n"; sleep 1; } }