#!/usr/local/bin/perl
#
# Generates a beep!
# Written as warning plugin for Checkservice
# by Paul van Tilburg <paul@luon.net>
#
# No arguments. 

open (CONSOLE, "> /dev/console") or
  die "$0: Could not open /dev/console: $!\n";
print CONSOLE "\007";