Select Code to Download

$self->status('unknown') or $self->status('good') set an object's stat
+us, whereas $self->status('ungnown') generates an error. I would like
+ this also to be available

use strict;
use warnings;
...
$a_or_b->{a} = 'a'; #should be okay
$a_or_b->{b} = 'b'; #should be okay
$a_or_b->{c} = 'c'; #should generate an error

$status->{good} = '1'; #should be okay
$status->{bad} = '1'; #should be okay
$a_or_b->{ungnown} = '1'; #should generate an error

use strict;
use warnings;
...
   my($status) = @_;
   return ${$status};
}