connect( $database, $user, $password );

##</code><code>##

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