#!/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);