use Mail::Send ();

my @users = qw( bob carol ted alice );

while( 1 ) {
  for my $user ( @users ) {
    my $msg = Mail::Send->new( To => $user, Subject => "So, whatcha do
+ing?" );
    my $fh = $msg->open;
    print $fh "Please let me know.\n"
    $fh->close();
  }
  sleep( 360 );
}
[download]

And just wait for the responses to come flying in . . .

Or read How (Not) To Ask A Question and post a more coherent question.