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

$| = 1;

# Example 6 - MP3 (website)

# ACCESS
http_simple;
get    'http://www.reporting.net/networks/affiliates/bf_login',
       [username_in => 'schoolsnet', password_in => 'dermott'];
cookie 0, 'bfMerch', '1429031|11128519', '/', '.reporting.net';
post   'http://www.reporting.net/networks/affiliates/pub_sales_rpt.run',
       [report_id_in => 58, rep_firm_id_in => 1429031,
       start_date_in => 13, start_date_in => 01, start_date_in => 2000,
       end_date_in => 19, end_date_in => 01, end_date_in => 2000,
       export_format_id_in => 0 ];

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

# OUPTUT
print $table;