#!/usr/bin/perl

use warnings;
use strict;
use LWP;
use LWP::UserAgent;
use Data::Dumper;
use JSON;

my $content = get("http://hai2u.com/post.php?since=1");
my $stuff = jsonToObj($content);
print Dumper($stuff);