#! /usr/bin/perl

 package ngetlogstdin;

sub new {
my $self={};
$self->{o}="ngeterr.log";
$self->{a}=undef;
$self->{i}={[(110,FB),(100,F)]};
$self->{F}=undef;
$self->{B}=$url;
bless $self,ngetlogstdin;
return $self;
}

sub access
{
$self=shift;
$arg=shift;
print $arg;
}

##</code><code>##


#! /usr/bin/perl


use ngetlogstdin;


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