use 5.012;
use warnings;
use utf8;
use CGI;

my $javascript = <<'END';
function printpage() {
    window.print()
}
END
    
my $css = <<'END';
@media print {
    .hideme { display: none; }
}
END

my $cgi = CGI->new();

print $cgi->header( -charset => 'UTF-8' );
print $cgi->start_html(
    -style => {
        -type => 'text/css',
        -code => $css
    },
    -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()', -class => 'hideme' );
print $cgi->end_form();
print $cgi->end_html();