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

# Example 3 - Avanta (website)

# ACCESS
post 'http://www.avanta.com.au/affiliate/login.asp',
     'txtLogin=csymons%40schools.net.au&txtPassword=schoolsales';

# EXTRACTION
($nref, $nret, $amount) = read_lines
    'entered this site:',
    'returned after a referral:',
    'Amount Sold (AUS$):';

# OUTPUT
print <<End;
    # people entering site: $nref
# people returning to site: $nret
         Amount sold (AU\$): $amount
End