sub create_checksum { 

	my $self = shift; 
	my $data = shift; 
require MOJO::MailingList::Schedules::CheckSum; 
my $cs = MOJO::MailingList::Schedules::CheckSum->new(); 
return $cs->checksum("foobarbaz") ."\n";
}