Script til backup af alle databaser

Jeg vil gerne have et script kørende til at tage backup af alle databaser på en MS SQL server.

Jeg har allerede bygget et, men det fanger ikke fejl fra MS SQL.
Scriptet melder OK, men via SQL Server Logs kan man se at nogle backups fejler. Og det er tilfældigt hvilke og hvornår de fejler. (Og har ikke noget med pladsproblemer at gøre)

Her er den teknik jeg p.t. bruger:
my $sql = qq{
  BACKUP DATABASE "$database->{database}"
  TO DISK = '$local_filename'
  WITH NAME = N'$database->{database} backup',
  INIT,
  NOSKIP,
  NOFORMAT
};
my $rows = $dbh->do($sql) or die $dbh->errstr;
if ($dbh->err || ($rows!=-1)) {
  print "\tERRSTR: " . $dbh->errstr . "\n";
} else {
  print "\tDET GIK FINT!\n";
}

Men som sagt, så fejler nogle backups uden at denne kode opdager det.

NOGLE FORSLAG?

Scriptet skal helst være i Perl.