Simple Perl Backup Script for use with Innodb or Xtradb subsystem and Percona XtraBackup