[PLUG] speaker beep question

[epike@isinet.com]

Hi

Anybody knows how to produce other beeping sounds from the
PC speaker from the command line or Perl?  Its for a
headless shell script--currently I use something like

my $bel = chr(7);

sub bell()
    {
    open (CON,">/dev/console");
    print CON $bel ;
    close CON;
    }

I was wondering if there were any other tones I could
produce from simple shell scripts (aside from char(7)).

JondZ / E.Pike
                         


______________________________________________________________________
Philadelphia Linux Users Group       -      http://www.phillylinux.org
Announcements-http://lists.phillylinux.org/mail/listinfo/plug-announce
General Discussion  -  http://lists.phillylinux.org/mail/listinfo/plug