if (my $mb = new MySQL::Backup($database,$host,$user,$pwd,{'USE_REPLACE' => 0, 'SHOW_TABLE_NAMES' => 0})) { my $file = join '', 'db.backup.', time, '.sql'; if (my $backup_db = $mb->data_backup) { open my $fh, "+>", "$backup_folder/$file" or die "Can't open $backup_folder/$file: $!"; print $fh $backup_db; close $fh; } else { die "Can't backup database!"; } else { die "Can't connect to database!"; }