#!/usr/bin/perl
use WWW::Extractor;
http_verbose;
http_proxy('http://proxy.schools.net.au:3128');

# Example 5 - Chaos Music (website)

# ACCESS
get   'http://www.chaosmusic.com/reseller_login.asp';
enter 'Reseller ID', 377;
enter 'Password', 'dermott';
submit;

# EXTRACTION
($balance, $total, $nvis, $nsale, $comm) = read_lines
    'Account Balance', 'Total Commisions Earned',
    'Number of visitors', 'Number of sales',
    'Current Commission';

# OUPTUT
print <<End;
    Balance: $balance
Commissions: $total
   Visitors: $nvis
      Sales: $nsale
 Commission: $comm
End