sub create_checksum { 

	my $self = shift; 
	my $data = shift; 

my $foo = $$data; 
			
			use Digest::MD5; 
			my $ctx = Digest::MD5->new; 
			my $cs = $ctx->md5_hex($foo);
			
			
			
			warn "data: " . $foo; 
			warn "checksum: " . $cs; 
			return $cs; 

}