my $Todo = ...;    # Data sent via GET or POST from browser via WebServer    
    my $environment = '';
    foreach my $env ( keys %ENV )
    {   $environment .= "$env\t$ENV{$env}\n"; }

    my $send = pack("N",length($environment) ) . $environment .  pack("N",length($Todo) ) . $Todo;
    my $ret = send_data( $svr, \$send );   # Send to processing Perl script