Select Code to Download

use constant {
    RPI_MODE_WPI => 0,
...
    RPI_MODE_PHYS => 3,
    RPI_MODE_UNINIT => -1,
};

sub new {
    my ($self, %args) = @_;
...
    $self->_fatal_exit;
    return $self;
}