I don't know if it's secure but this module does much the same thing

use CGI::Application::MailPage;
my $mailpage = CGI::Application::MailPage->new(
            PARAMS => {
                         document_root => 'whatever',
                         smtp_server => 'smtp.myserver',
                       },
            );
$mailpage->run();
[download]

poj