#!/usr/bin/env perl use strict; use warnings; use Audio::M4P::QuickTime; use Getopt::Long; use Pod::Usage; GetOptions( \my %options, qw/input=s output=s help/, ); pod2usage(0) if $options{help}; pod2usage(-1) unless $options{input} && $opt…