#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;

# User vars
my $ont_host = "192.168.18.1";
my $ont_username = USERNAME;
my $ont_password = BASE64PASS;

# Build URL prefix
my $url = "http://" . $ont_host;

# Start http session
my $ua = LWP::UserAgent->new(keep_alive => 1);
# Get sid
my $res = $ua->post($url . '/asp/GetRandCount.asp');
my $sid = $res->content;
# Session authentication
$res = $ua->post($url . '/login.cgi', [UserName => "$ont_username", PassWord => "$ont_password", 'x.X_HW_Token' => "$sid"]);
# Retrieve info
$res = $ua->get($url . '/html/amp/opticinfo/opticinfo.asp');
print($res->content);
$res = $ua->get($url . '/logout.cgi?RequestFile=html/logout.html');