sub send_receipts {
    <snip>

    $sender = new Mail::Sender
        {smtp => $Mailserver, from => 'CS Handin <kendal>'};
    $sender->MailMsg({to => "$userid\@keele.ac.uk",
        replyto => $handin_manager,
        subject => 'Receipt for work handed in',
        msg => $body});
    $sender->Close;
}

##</code><code>##


if ($receipt_by_email) {
    defined $email ?
        send_receipts($email, $descr, &is_work_late($assign))
        :
        aquire_email_info($regno, $assign);
}