WOEID proof of concept for TTYTTER

use Data::Dumper;

    my $WOEID = '23424975';
    $wtrendurl = "https://api.twitter.com/1/trends/$WOEID.json";
    my $r = &grabjson("$wtrendurl", 0, 1);

    my $d = Data::Dumper->new($r);