#!/usr/bin/env perl
use strictures;
no warnings "uninitialized";
use WWW::Mechanize;
use WWW::OAuth;

# You have to have a trading account to use the service-
my $oauth = WWW::OAuth->new(
    client_id => "...",
    client_secret => "...",
    token => "...",
    token_secret => "..." );

my $mech = WWW::Mechanize->new( autocheck => undef );
$mech->add_handler( request_prepare => sub { $oauth->authenticate($_[0]) } );
$mech->default_header( Accept => "application/json" );

$mech->add_handler( response_data => sub {
    my ( $response, $ua, $h, $data ) = @_;
    # $data; # Handle the gzip data.
    $response->content(undef);
    1;
});

$mech->get("https://stream.tradeking.com/v1/market/quotes?symbols=AAPL");