#!/usr/local/bin/perl
# Jaime Prilusky, 2010
$|++;

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

  my $ua = LWP::UserAgent->new;
  $ua->proxy(['http'], 'http://wwwproxy.weizmann.ac.il:8080/');
  $ua->no_proxy('localhost','weizmann.ac.il');


  my $req = POST 'http://bip.weizmann.ac.il/oca-bin/ocaids',
           [ tx => 'blue', au => 'Smith' ];

  print $ua->request($req)->as_string;