$stderr.print "\a" while 1

コレでいいだろ?