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

my $js = <<"EOF";
function sub_dispatcher() {
    document.sql_tool.submit();
}
EOF

print
    header(),
    start_html(-title => 'Selection ',
               -script => [ $js ] ),
    startform(-name => 'sql_tool'),
    p(
      textarea(-name => 'sql',
               -default => 'SELECT * FROM Departments',
               -id => 'textarea1',
               -rows => 14,
               -cols => 70),
      ),
    p(
      button(-name => 'save2file',
             -value => 'execute write-in (above)',
             -onClick => "sub_dispatcher()"),
      ),

    endform(),
    hr(),
    ;

my $sql = param('sql');
print
    h3("From textarea: "),
    pre( encode_entities($sql) || "n/a" ),
    ;