/usr/share/doc/libhtml-tiny-perl/examples/simple.pl is in libhtml-tiny-perl 1.05-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | #!/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";
|