#!/usr/local/bin/perl
# Jaime Prilusky 2009

use LWP::UserAgent;

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

  my $url = $ARGV[0] || "http://bip.weizmann.ac.il";
  
  my $response = $ua->get($url);
  
  if ($response->is_success) {
    print $response->decoded_content;  
  } else {
    die $response->status_line;
  }