#!/usr/bin/perl -w
use strict;
$|=1;
use blib;
use Audio::LADSPA;

die "Usage: $0 plugin [plugin-options] <instream >outstream\n" unless @ARGV == 1;

my $name = shift;

my $plugin;
for (Audio::LADSPA->plugins) {
    if ($_ eq $name || $_->id eq $name || $_->label eq $name || $_->name eq $name) {
	$plugin = $_->new(44100);
	last;
    }
}
$plugin or die "Cannot find plugin $name\n";


my @buffers;
for ($plugin->ports) {
    my $buf = Audio::LADSPA::Buffer->new(1);
    $_->connect($buf);
    push @buffers,$buf;
}