use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("Subject: Subscription cancellation at $C->{ENV}{HTTP_HOST}\n\nHello!\n\nA subscription has been cancelled by customer.\n\nSubscription ID: $C->{subscr_id}\n");}