#!/usr/bin/perl
	use strict;
	use warnings;
	use Glib qw(TRUE FALSE);

	use GStreamer -init;

	my $loop = Glib::MainLoop -> new();
	print GStreamer->init_check, "\n";
	print GStreamer->version, "\n";

# set up
	my $play = GStreamer::ElementFactory -> make("playbin", "play");
	$play -> set(uri => Glib::filename_to_uri "/home/image/Documents/Endoscopia/media/a_100_23_1.avi", "localhost");
	$play -> get_bus() -> add_watch(\&my_bus_callback, $loop);
	$play -> set_state("playing");

# run
	$loop -> run();

# clean up
	$play -> set_state("null");

sub my_bus_callback {
	my ($bus, $message, $loop) = @_;

	if ($message -> type & "error") {
		warn $message -> error;
		$loop -> quit();
	}

	elsif ($message -> type & "eos") {
		$loop -> quit();
	}

# remove message from the queue
	return TRUE;
}