my $current_date = strftime("%Y-%m-%d", localtime); my $current_time = strftime("%H:%M:%S", localtime); my $dumpfile = '>/backups/table_dumps/' . $db . '.' . $current_date . '.' . $current_time; my $valid_table_list = join ' ', @valid_tables; my $cmd = 'mysqldump -q --single-transaction --complete-insert -e' . ' ' . $db . ' ' . $valid_table_list . ' |'; open DUMPFILE, $dumpfile or die $!, open MYSQLDUMP, $cmd or die $!; while (my $bytes_read = read(MYSQLDUMP, my $buffer, 4096)) { print DUMPFILE $buffer; } close DUMPFILE; debug(qq{Finished dumping $db\n\n});