Data::parsebinary::graphics::emf
use Data::ParseBinary::Graphics::EMF qw{$emf_parser}; my $data = $emf_parser->parse(CreateStreamReader(File => $fh));
This parser just do not work on my example file. Have to take a look on it.
This is a part of the Data::ParseBinary package, and is just one ready-made parser. please go to the main page for additional usage info.