#!/usr/bin/perl -wT
use strict;
use CGI::Pretty qw( :standard );

print header,
      start_html( -title   => 'Password Check',
                  -BGCOLOR => 'navy',
                  -text    => 'white' ),
      h1( 'It worked' ),
      hr(),
      br(),
      end_html;