ovp.pl

#!/usr/bin/perl -w

use Ogg::Vorbis::Header;
use Ogg::Vorbis::Decoder;
use Audio::Ao qw(:all);

$header = Ogg::Vorbis::Header->new($ARGV[0]);
$decoder = Ogg::Vorbis::Decoder->open($ARGV[0]);
die "Bad ogg\n" unless $header && $decoder;

initialize_ao;
$device = open_live(default_driver_id, 16, $header->info('rate'),
  $header->info('channels'), is_big_endian, {});

while (($i = $decoder->read(\$buffer)) > 0) {
	  play($device, $buffer, $i);
}

close_ao($device);
shutdown_ao;