#! /usr/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

print header('text/plain');

my $var = qx{mysqldump --opt DATABASE 2>&1};
print $var;