The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;  
# kwalitee, schmalitee...
# buggy CPANTS wants even dumb doc placeholder modules to use strict...

=head1 NAME

Audio::M4P -- Perl QuickTime / MP4 / iTunes Music Store audio / video file tools

=head1 DESCRIPTION
    
M4P is a QuickTime protected audio file format.

=head1 SYNOPSIS

    use Audio::M4P::QuickTime;

    my $mp4file = "file.m4p";
    my $qt = new Audio::M4P::QuickTime(file => $mp4file);
    my $tags = $qt->GetMetaInfo;
    print "Artist is $tags->{ARTIST}\n" if $tags->{ARTIST};


    use Audio::M4P::Decrypt;

    my $outfile = 'mydecodedfile';
    my $deDRMS = new Audio::M4P::Decrypt;
    $deDRMS->DeDRMS($mp4file, $outfile);

    See also the individual pod documentation for Audio::M4P::QuickTime
    and Audio::M4P::Decrypt.

    
=head1 AUTHOR 

    William Herrera B<wherrera@skylightview.com>. 

=head1 SUPPORT 

Questions, feature requests and bug reports should go to 
<wherrera@skylightview.com>.

=head1 COPYRIGHT 

=over 4

Copyright (c) 2003-2005 William Herrera. All rights reserved.  
This program is free software; you can redistribute it and/or modify 
it under the same terms as Perl itself.

=cut

1;