sub new {
    my $class  = $_[0];
    my $cgi = CGI->new({});
    my $objref = { _active   => 1,
                   _border   => 1,
                   _continue => 0,
                   _cgi      => $cgi,
                   _pretty_not_installed => 0 };
    bless $objref, $class;
    return $objref;
}