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;
return $self->{$arg};
}