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();