Hi all this script generate an error if the name of database passed in argument fonction is false , for this i want that my script dont generate

any output if there is an error in database name or host , i am beginner in Per if some one wants to help me thanks to appears me how i can

change this code


sub desablestatus  {
    my $dbname=$_[1];
    my $host=$_[0];
    my $port="XXXX";
    my $options="";
    my $tty="";
    my $username = "XXXXX";
    my $password="XXXXX";
    my $hotmail;
    my $sth;
    my $dbh;

$dbh = DBI->connect("dbi:Pg:dbname=$dbname;host=$host","$username","$password");
$dbh->do("update users set status = 'active'");


}

desablestatus ("localhost","mydatabase");