use CGI;
use LWP::UserAgent;
use HTTP::Request;

my @hosts = qw(
	http://www.hosta.com/cgi-bin/scripta.pl
        http://www.hostb.com/cgi-bin/scriptb.pl
       );

my $cgi = new CGI;
$ua = LWP::UserAgent->new;

my $content = "";

# Build your content here!
# Example,
# build content from form values submitted to this script:
$content = "foo_field=" . $cgi->param('foo_field')
          ."bar_field=" . $cgi->param('bar_field');

for $host_script (@hosts) {
  my $req = HTTP::Request->new (POST => $host_script);
  $req->content($content);
  # Verify if request was successful..
  if ($req->is_success()) {
    print "Did well\n";
  } else {
    print "Didn't do well\n";
  }
}

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}