#!/usr/bin/perl

# Let the music play...
# $Id: sound,v 1.4 1997/12/13 03:13:34 czyborra Exp $

# reduce volume

	!system("volume","20") || warn "Cannot reduce volume: $!";

# load sample

	$sounds = "/usr/lib/java/demo/BouncingHeads/audio/spacemusic.au";
	open (STDIN, $sounds) || die "Cannot open $sounds: $!";
	undef $/; $_=<> || die "Cannot read $sounds: $!";

# play until interrupted

	$dev = "/dev/audio";
	open (STDOUT, "|exec cat >>$dev") || die "Cannot open $dev: $!";
	print while 1;