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

# Example 6 - MP3 (website)

# ACCESS
get    'http://www.reporting.net/';
enter  'schoolsnet';
enter  'dermott';
submit 'GET';
find   'mp3';
link   'enter';
link   'reports';
link   'Sales (Daily)';
select 'Browser';
submit;

# EXTRACTION
$table = read_table 'Sales (Daily)';
drop_head_foot $table 0, 2;
cut $table 'Transaction Date', '# Orders', 'Net Sales';

# OUPTUT
print $table;