#!/usr/local/bin/perl
use warnings;
use 5.012;
use utf8;
use CGI;

my $javascript = <<END;
function printpage()
{
        window.print()
}
END

my $cgi = CGI->new();

print $cgi->header( -charset => 'UTF-8' );
print $cgi->start_html(
        -script => { 
                -type => "text/javascript",
                -code => $javascript
        }
);
print $cgi->p( 'Hello World' );
print $cgi->start_form();
print $cgi->button( -name => "button_1", -value => "Print", -onClick => "printpage()" );
print $cgi->end_form();
print $cgi->end_html;