use strict;

use MIME::Lite;
use CGI qw(:standard);

if (param('send')) {
  my $email_message = 'Message';
  sleep(600);
  send_msg(param('to'), param('message'));
}

sub send_msg (

  my ($to, $message) = @_;

  my $msg = MIME::Lite->new(
     From     =>'you@yourdomain.com',
     To       =>"$to",
     Subject  =>'Your 10 min delayed response',
     Data     =>"$message"
  );
  $msg->send();
)