sub ichbins{
    my $self = shift;
    return 
        inet_ntoa(scalar gethostbyname($self->{BIN}{default}{fritz})) eq $ENV{REMOTE_ADDR} ?
        1 : 0;
}