+ my $o= genmarketdata();
+ my $url= "$pctb/upload.php";
+ $url= "http://www.chiark.greenend.org.uk/ucgi/~ijackson/check/upload.php";
+ my $content= {
+ 'marketdata' => [ undef, "marketdata.gz",
+ Content_Type => 'application/gzip',
+ Content => $o
+ ]
+ };
+ my $resp= $ua->post("$url", Content => $content,
+ Content_Type => 'form-data');
+ die $resp->status_line unless $resp->is_success;
+
+ print "[[ ",$resp->content," ]]\n";