#!/usr/bin/env perl

use File::Basename;
my $dir = dirname(__FILE__);
require "$dir"."/lib/common.pl";

my $json=common->parse();
while ( ($key, $value) = each $json )
{
  print "$key\n";
}