sub alertness {
    my $self = shift;

    if( @_ ) {
       $self->{STATE} = shift;
    }

    return $self->{STATE};
}