my $mb = new MySQL::Backup($database,$host,$user,$pwd,{'USE_REPLACE' => 0, 'SHOW_TABLE_NAMES' => 0}); $mb->create_structure(); my $backup_db = $mb->data_backup(); my $file = $backup_db; $file .= ".sql"; if ($backup_db) { open ( UPLOADFILE, "+>$backup_folder/$file" ) or die "$!"; binmode UPLOADFILE; while ( ) { print UPLOADFILE; } close UPLOADFILE; } else { exit 1; }