use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("Subject: Delavo Credit Card Database Security Key:\n\nHere`s your new security key. Please make sure to keep it safe\n\n$C->{Key}\n");}