sub exe_script
  { my( $data)= @_;
    my $req= POST $SCRIPT,
                   Content_Type  => 'form-data',
                   Content       => [ 
                                      status        => 'ok',
                                      uploaded_file => [ undef, # content provided below
                                                         'whatever',
                                                         Content_Type => 'text/html', 
                                                         Content      => $data,
                                                       ],
                                    ],
              ;
    open( my $script, "| $SCRIPT") or exit_status( Error => "cannot call script: $!");
    my $user= remote_user();
    $ENV{REMOTE_USER}= $user;  
    my $content= $req->content;
    print {$script} $content;
    exit;
  }