Here is an old script, it logs in and gets the quota. I think that is what you are looking for. Just apply the same concept to your example.com
(there are better ways to do that, this is just old stuff that I forgot about)
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTML::PullParser;
my %cooky = ('Cookie' => 'PHPSESSID=5a58eb6613e9bee7137a8dc357f7d754');
my $user = '';
my $password = Encrypt('');
my $main_page = "http://www.ogero.gov.lb/admin/BillDetails/DSL/login.php?language=L";
my $main_acc_page = 'http://www.ogero.gov.lb/admin/BillDetails/DSL/profile.php';
my $report_page = 'http://www.ogero.gov.lb/admin/BillDetails/DSL/DSLUsage2Way.php?language=L&point=1';
my %vars = ('password' => $password, 'phone' => $user);
run($main_page, \%vars);
system("pause");
sub Encrypt {
my $pass = $_[0];
my @Temp;
my @Temp1;
my @Temp2;
my @p = split '', $pass;
foreach my $letter (@p) {
my $rnd = int(rand(930)) + 89;
push @Temp, ord($letter) + $rnd + 999;
push @Temp1, $rnd * $rnd;
}
for (my $j = 0; $j < length($pass); $j++){
$Temp2[2*$j] = $Temp[$j];
$Temp2[2*$j+1] = $Temp1[$j];
}
my $output = join ",", @Temp2;
return $output;
}
sub run {
my( $url, $formref) = @_;
# set up a UserAgent object to handle our request
my $ua = new LWP::UserAgent(timeout => 300);
$ua->agent('Mozilla/5.0');
my $response = $ua->post($url, $formref, %cooky);
my $main_response = $ua->get($main_acc_page, %cooky);
my $report_response = $ua->get($report_page, %cooky);
#print $response->as_string;
#print STDERR $response->status_line, "\n";
my $str = $report_response->content;
#my $p = HTML::PullParser->new(doc => $str, start => '"S", tagname, @attr', end => '"E", tagname');
#while (my $token = $p->get_token) {
# print $token->[0];
#}
#print $str;
$str =~ s/<.*?>//g;
$str =~ s/^\s+//mg;
$str =~ s/\ \;//g;
#print $1 . "\n" . $2 . "\n" . $3 . "\n";
print $str;
}