#!/usr/local/bin/perl

use LWP::UserAgent;
use URI;
use Getopt::Long;

GetOptions(qw(proxy));

$user = "myusername";
$passwd = "mypassword";

foreach $url2get (@ARGV) { 
  $url = new URI "http://$url2get";
  $ua = new LWP::UserAgent;
  $req = new HTTP::Request GET => $url;

  if($opt_proxy) {
   $ua->agent("Mozilla/4.05");  # pretend I am a Netscape browser
   $ua->proxy(['http'], 'http://wwwproxy.mycompany.com:1080');
   $req->proxy_authorization_basic($user,$passwd);
  }
  
  $res = $ua->request($req);
  
  # check the outcome
  if ($res->is_success) {
    print $res->content;
  } 
  else {
    print "Error: " . $res->code . " " . $res->message;
  }
}