use CGI qw(:standard);

open (FILE, ">test.html") or die "cannot open test.html: $!\n";

print FILE (
    start_html( -title => "test page" ),
    p( "Test paragraph." ),
    p( "Here is a second paragraph." ),
    hr(),
    p( "This is the last." ),
    end_html()
);

close FILE;