#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use DBI;
use strict;

my $SQLdatabase = "database_name_goes_here";
my $SQLusername = "username_goes_here";
my $SQLpassword = "password_goes_here";

my $SQLcommand = "enter_your_command_here";

open SQL, "mysql -u $SQLusername --password=\"$SQLpassword\" -t -e \"use $SQLdatabase; $SQLcommand\" |";

print header;
print start_html("Test SQL commands");
print "<pre>";
while ( defined( my $line = <SQL> ) ) { print "$line";}
print "</pre>";
print end_html;
close SQL;