#! /usr/bin/perl
use strict;
sub send_spam { print @_; }
my $_mergeFields = "##fname##;##lname##;##email##;##phone##;";
my $_list_to_send_to = "Richard;Smith;myemail\@testmail.com;8005551212;|Toby;Johnson;email2\@testmail.com;8885551212|Chanty;Perkins;another\@test.com;8665551212;";