Yes, mod this up.

The insurance companies face exactly this bind with regard to electric scooters already. Hot tubs and swimming pools are other examples.

Look at paid cable service channels. Almost all those channels have ads. So would the paid news sites, I expect.

yeah, but it's apparently legal for a battery maker to clone their battery "feature":

http://www.pcworld.com/article/121327/supreme_court_rebuffs_lexmark_in_toner_cartridge_fight.html

The substance was a specifically extracted cannabinoid type pharmaceutical. It was NOT THC, the main psychoactive component of cannabis. Cannabis containing THC, taken in daily doses, generally causes an increase in psychiatric disease and also causes a slight to mild memory impairment; this has been demonstrated with many other sedative style drugs in large doses, notably alcohol and benzodiazepines.

Why would MJ hurt memory if taken daily, and yet this newly derived cannabinoid help preserve memory in rats used daily? Cannabis is a complex herbal substance, which probably contains multiple similar components which may be partially agonists and partially antagonists at the same or similar sites in the brain. So it's likely that taking an extractive that helped Alzheimers would be like smoking sawdust for your typical pot user. Most likely it would give them no buzz at all.

The pharmaceutical community is always looking for ways to derive good medications from herbal poisons. This is not really that different a situation.

Yes, there is plenty of other customer information in the file. This should not normally be a problem. If it is, the following is not simple, but generally works:

---------
#!/usr/bin/perl

use Tk;
use Cwd;
use strict;
use warnings;
use Audio::M4P::QuickTime;

my $backup_requested = "yes";

my $win = new MainWindow;
my $frm = $win->Frame()->pack;
$frm->Label(
-text => "Anonymize Apple iTunes Plus .m4a Files",
-font => "Garamond 20 bold",
)->pack;

my $do_backup_choice = $frm->Radiobutton(
-text=> "Back Up (append .old.m4a to old files)",
-value => 'yes',
-variable => \$backup_requested,
-font => "Garamond 14 bold",
)->pack;

my $do_no_backup_choice = $frm->Radiobutton(
-text => "Do Not Back Up (files will be over-written!)",
-value=> 'no',
-variable => \$backup_requested,
-font => "Garamond 14 bold",
)->pack;

my $convert_button = $win->Button(
-text=> "Convert Files",
-command => \&push_button,
-font => "Garamond 17 bold",
)->pack;

my $exit_button = $win->Button(
-text=> "Exit",
-command => sub { exit 0 },
-font => "Garamond 17 bold",
)->pack;

MainLoop;

sub push_button {
my $write_extension = $backup_requested eq 'no' ? '' : '.old.m4a';
my @file_list = $win->getOpenFile(
-defaultextension => ".pl",
-filetypes=> [ [ 'MP4a files', '.m4a', ], [ 'All Files', '*', ], ],
-initialdir => Cwd::cwd(),
-initialfile=> "getopenfile",
-title=> "Choose Purchased Apple iTunes Plus Files to Anonymize",
-multiple => 1,
);

foreach my $filename (@file_list) {
my $qt = Audio::M4P::QuickTime->new( file => $filename );
if ( $qt->FindAtom("mp4a") ) {
$qt->CleanAppleM4aPersonalData();
rename( $filename, $filename . $write_extension );
$qt->WriteFile($filename);
}
else {
$win->messageBox(
-message => "Error: $filename is not a valid m4a file.",
-type=> 'ok',
-icon=> 'error'
);
}
}
}