#!/usr/bin/perl  -w

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $query = new CGI;


my $JSCRIPT=<<EOF;

function sub_dispatcher() {
document.sql_tool.submit();//document.sql_tool.mysql_Query = passit;
}

EOF
;

#SETTING UP A FORM FOR INPUT:
print $query->header();

print $query->start_html(-title => 'Selection ',
                         -BGCOLOR=>'lavender',
                         -script=>$JSCRIPT);

print $query->startform(-name=>'sql_tool');

print $query->textarea(-name=>'mysql_Query',
                     -default=>'SELECT * FROM Departments',
                     -id=>'textarea1',
                     -rows=>14,
                     -cols=>70),p;
                    # -size=>90),p;

print $query->button(-name=>'save2file',
                     -value=>'execute write-in (above)',
                     -onClick=>"sub_dispatcher()"),p;

print $query->endform(),
hr;
#------------------------------------------------------
#VARIABLES:
my $query_nw   = $query->param('mysql_Query');
print "from textarea: $query_nw",p;