use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("Subject: Subscription cancellation at $C->{ENV}{HTTP_HOST}\n\nDear $C->{User}{name}!\n\nThis is a courtesy email to inform you that your subscription to \"$C->{Product}{title}\" has been canceled, and you will no longer be billed for \"$C->{Product}{title}\".\n\nSubscription ID: $C->{subscr_id}\n");}