#!c:/Perl/bin/perl.exe

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

my $query = new CGI;

print $query->header('text/html');

print $query->start_html(-title=>'Test Seite',
                         
                         -script=>{-type=>'JAVASCRIPT', -src=>'test2.js'}

                        );

print '<input type="button" name="lesen" value="lesen" onclick="getSeries()"';



print $query->end_html();