Select Code to Download

sub sendmessage {
    my ($html,$text,$recipient,$reportdate) = @_;
...
    );
    $msg->send();
}