#!/usr/bin/env perl

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

my $json=common->parse();
if(!defined($json->{'error'}) && !defined($json->{'reason'})) {
  exit(1);
}
print $json->{'error'} . " " . $json->{'reason'};