#! /usr/bin/perl


use ngetlogstdin;


$obj=new ngetlogstdin;
for $key(keys %$obj){print "$key\n"};
$arg=<stdin>;
$value=$obj->access($arg);
print $value;