sub connect {
    my( $db, $user, $pw ) = @_;
...
};