use MIME::Base64;
use HTTP::Request;
use LWP::UserAgent;


sub IamGET {
    my ($url, $domain, $user, $pass) = @_;

    my $REQ = HTTP::Request->new(GET => $url);

    my $authString  = encode_base64("$domain/$user:$pass");
    $REQ->push_header("Proxy-Authorization", "Basic $authString");

    my $UA = LWP::UserAgent->new;
    $UA->agent("Mozilla/6.9(${^O};retmaspod)");
    my $RES = $UA->request($REQ);

    if($RES->is_success()) {
        return $RES->content;
    } else {
        $! = " Error (".scalar(localtime())."):". $RES->status_line . "\n";
        return undef;
    }
}