You could use the run_restore_script method in MySQL::Backup.

For example, the following will rebuild your database.

#!/usr/bin/perl
use strict;
use warnings;

use MySQL::Backup;

my $filename = "backup_20070329.sql";

my $mb = new MySQL::Backup('mydb','127.0.0.1','user','password',{});

$mb->run_restore_script($filename);
[download]

This completely replaces the database schema and repopulates the data.