#!/usr/bin/perl -wT

use lib '.';
use strict;
use warnings;
use MySQL::Backup;
use File::Basename;
use CGI qw/:standard/;


my $host = "162db.myhost.org";
my $user = "user";
my $pwd  = "password";
my $database = "dbusers";
my $backup_folder = '/usr/home/ken/public_html/srcoc';


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 ( <UPLOADFILE> )
{
print UPLOADFILE;
}

close UPLOADFILE;
}
else {
  exit 1;
}