Select Code to Download

    package MyApp::Database;
    use vars qw( $ERROR );
...
        # return sucess
        $self;
    }

    use MyApp::Database;

    # first use - database gets initialised
    my $database = MyApp::Database->instance();
    die $MyApp::Database::ERROR unless defined $database;