#!/usr/bin/perl -w
use strict;
$|++;

use WWW::Mechanize;
my $ticker = shift;

#UserAgent settings
my $agent = WWW::Mechanize->new();
push @{$agent->requests_redirectable}, 'POST';

$agent->cookie_jar(HTTP::Cookies->new(file => "../../run/lwpcookies.txt", autosave => 1));

#Grabbing the front page
$agent->get( "http://www.cboe.com/DelayedQuote/QuoteTableDownload.aspx" );
$agent->success or die $agent->response->status_line;

#Login
$agent->form_name("QuoteTableDownload");
$agent->field("ticker", "INTC");
$agent->submit();

$agent->success or die $agent->response->status_line;

open (OUT, "> ./tmp.html");
print OUT $agent->content;
close OUT;