12 my $conn = new MO::Submit;
13 $conn->connect or die;
15 #$req = new Sherlock::Object;
16 #$req->set("!" => "SUBMIT", "T" => "plans", "X" => "pas", "S" => 100);
19 #print $sk "<..................................................................................................>";
22 my $r = new Sherlock::Object("!" => "STATUS");
23 $r = $conn->request($r) or die;
24 $r->write_indented(*STDOUT);