#include <stdio.h>
#include <mpg123.h>

int main (void) {
	int check = mpg123_init();
	if (check != MPG123_OK)
		fprintf(stderr,"fail: %s\n", mpg123_plain_strerror(check));
	return 0;
}       

##</code><code>##

#!/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());
}