sub beep ($text) is inline { print $LOG "BEEP: $text\n"; }