use LWP::UserAgent;

my $ORASEARCH = 

'http://updates.oracle.com/ARULink/PatchSearch/process_form?product_family=&product=&release=&platform=&language=0&patch_type

=&file=&orderby=abr.last_updated_date&process=Submit&email=&userid=&bug=' ;

my $ORAUID    = 'userid' ;
my $ORAPASSWD = 'password' ;
my $LWPUA ;

{
    $LWPUA = LWP::UserAgent->new;

    print &lookup_patch_desc(1324710) ;
}


sub lookup_patch_desc
{
    my $BUGNO   = $_[0] ;
    my $REQUEST = HTTP::Request->new(GET => $ORASEARCH . $BUGNO);
    $REQUEST->header('Accept' => 'text/html') ;
    $LWPUA->proxy(http => 'http://proxy.mycompany.com:80/') ;
    $REQUEST->proxy_authorization_basic("windowuserid","windowpassword") ;
    $REQUEST->authorization_basic($ORAUID,$ORAPASSWD);

    return $LWPUA->request($REQUEST)->as_string;
}