#!/usr/bin/perl
use strict;
use warnings FATAL => qw(all);

use Inline 'C' => Config =>
	CLEAN_AFTER_BUILD => 0,
	LIBS => '-lmpg123';
use Inline 'C';
Inline->init();

test();

__DATA__
__C__
#include <mpg123.h>

void test () {
	fprintf(stderr,"%d\n", mpg123_init());
}