sub create_checksum {

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

    my $foo = $$data;

    my $ctx = Digest::MD5->new;
    $ctx->add($foo);
    my $cs = $ctx->hexdigest();
    return $cs;
}