#!/usr/bin/perl

use strict;
use warnings;
use HTML::Tiny;

$| = 1;

my $h = HTML::Tiny->new;

# Output a simple HTML page
print $h->html(
  [
    $h->head( $h->title( 'Sample page' ) ),
    $h->body(
      [
        $h->h1( { class => 'main' }, 'Sample page' ),
        $h->p( 'Hello, World', { class => 'detail' }, 'Second para' ),
        $h->form(
          { method => 'POST' },
          [
            $h->input( { type => 'text', name => 'q' } ),
            $h->br,
            $h->input( { type => 'submit' } )
          ]
        )
      ]
    )
  ]
 ),
 "\n";