#!/usr/local/bin/perl
#check_oracle#

use strict;

use DBI;
use Net:MTP;

$ENV{'ORACLE_HOME'} = '/app/oracle/product/9.2';

my $errors;
my $total = 0;

check_oracle();

if($total > 0) {
my $mailer = Net:MTP->new("142.1.0.1");
$mailer->mail('dpr-prod@repl1.newport.net');
$mailer->to('root');

$mailer->data();
$mailer->datasend("Subject: DPR database");
$mailer->datasend("\n");
$mailer->datasend($errors);
$mailer->dataend();
}

sub check_oracle {
my $username = '######_@@@@';
my $password = '@@@@';
my $tnsalias = 'DPR';

my $dbh = DBI->connect('dbi:Oracle:'.$tnsalias, $username, $password, { PrintError => 0 });
unless($dbh) {
$errors .= "DPR database may be unavailable.\n";
$total++;
};
}

Whats wrong with it?

What errors did it return?

anyways, why should anyone just correct your code for you even if there is a problem? This is not a code debugging/ script writing service, it's a help forum.