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

# Example 3 - Avanta (website)

# ACCESS
get   'http://www.avanta.com.au/affiliate/default.asp';
enter 'Login', 'csymons@schools.net.au';
enter 'Password', 'schoolsales';
submit;

# 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