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

# Example 4 - Beyond (website)

# ACCESS
get   'http://www.beyond.com/forms/affiliates/online_report.htm';
enter 'Affiliate Number', 'AF58087';
enter 'Password', 'dermott';
submit;

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

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