Perl module that returns various metadata from a running mplayer process - View it on GitHub