Select Code to Download

use strict;
use warnings;
...
    print "Found database: $db \n";
}

use strict;
use warnings;
...
else {
    print " Backup completed successfully.\n";
}