#!/apps/VA/perl5.8.0/bin/perl
use Net::SMTP;
use Sys::Hostname;
use HTTP::Cookies;
use HTTP::Request::Common;
use Time::Local;
use POSIX (strftime);
use LWP::UserAgent;
use LWP::Simple;
use Getopt::Std;
use LWP::Simple qw( $ua get );

$ua->proxy( 'http', 'http://http.proxy.fmr.com:8000' );
# Load LWP class for "cookie jar" objects
#$ua->cookie_jar( { file=> "emma_cookie.txt" });

#my $browser = LWP::UserAgent->new( );
my $cookie_jar = HTTP::Cookies->new(
 'file' => 'emma_cookie.txt'
);
#$browser->cookie_jar( $cookie_jar );

#$cookies->set_cookie(0,'cookiename', 'value','/','emma.msrb.org',80,0,0,86400,0);
#$ua->cookie_jar($cookies);
# Now make your request
my $request = 'http://emma.msrb.org/MarketActivity/RecentTrades.aspx';
print "$request\n";
$cookie_jar->add_cookie_header( $request );
#getstore('http://emma.msrb.org/MarketActivity/RecentTrades.aspx', "MSRB.txt");
#getstore('http://www.nasdaqtrader.com/dynamic/SymDir/otherlisted.txt', "otherlisted.txt");
#getstore('http://www.nasdaqtrader.com/dynamic/SymDir/nasdaqlisted.txt', "nasdaqlisted.txt");

#my $ua = LWP::UserAgent->new;
#$ua->cookie_jar($cookie_jar);

#my $request = GET "http://www.emma.msrb.org"; # don't worry, it doesn't get saved :-)
#my $response = $ua->request( $request );

#$cookie_jar->extract_cookies( $response );