use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("Subject: Review approved\n\nDear, $C->{Review}{author_name},\na review of product \"$C->{Product}{title}\" you posted has just been approved by administrator.\n\nYour review:\n$C->{Review}{message}\n");}