A simple Perl script for backing up databases.