#!/usr/bin/perl -w

use strict;

system "netbackup/bin/admincmd/bpdbjobs -report -all_columns\n";

mail "xxxxxx@xxxxx.com