use Video::Info::Magic qw(:all);
my $type = divine('/path/to/video.mpg' );
print $type; #MPEG system stream data (maybe)
## ... see methods below
EXPORTvarious constants related to video file formats. All are prefixed with ``VIDEO_''.
divine(): Employs /usr/share/magic entries to determine a file's type, as well as GUID and other info from Microsoft, mplayer, transcode...
Copyright (c) 2002 Aladdin Free Public License (see LICENSE for details) Allen Day <[email protected]>