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

# Example 4 - Beyond (website)

# ACCESS
post 'http://www.beyond.com/forms/affiliates/online_report.htm',
     'affiliate_number=AF58087&affiliate_password_check=dermott&from_date='.escape('10/22/1999').
     '&to_date='.escape('01/20/2000').'&submit=Get%20Report';

# EXTRACTION
($from_date, $to_date) = 
    read_line 'Report of Sales from', 'through';

# OUTPUT
print <<End;
From date: $from_date
  To date: $to_date
End