#use strict;
use warnings;

#use Time::Local;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $sec = 0;
my $min;
my $hours;
my $D_title = param('title');
my $title;
.
.
.
#___________start_untainting_form_input_________
$temp = ($D_title =~ m/^(Dr.|Prof.|Mrs.|Ms.|Miss|Mr.)$/ );
$title = $1;