Perl/GStreamer

use GStreamer -init;

my $mainloop = Glib::MainLoop -> new;
my $playbin = GStreamer::ElementFactory -> make(playbin => 'playbin');
$playbin -> set(uri => Glib::filename_to_uri 'путь/к/файлу', 'localhost');
$playbin -> get_bus -> add_watch(\&callback);
$playbin -> set_state('playing');
$mainloop -> run;
$playbin -> set_state('null');

sub callback {
    $mainloop -> quit if $_[1] -> type & ['eos', 'error'];
    Glib::TRUE;
}