Select Code to Download

    my $mw = MainWindow->new();
    $mw->geometry("600x400+30+30");
...
    my $p4 = $nb->add('page4', -label => 'Import');
    # Page 5
    my $p5 = $nb->add('page5', -label => 'Pull List');

sub doUserPageUi {
    my ($pg, $dbh) = @_;
    my @listnames;
...
    $user_list->insert('end', @listnames);
    return;
}

sub doUserSearch {
    debug("+doUserSearch");
...
    $nb->raise('page1');
    debug("-doUserSearch");
}

# Save updated information to database
sub doUserUpdate {
...
    }
    return;
}