#!/usr/bin/perl

use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
use warnings;

my $q = CGI->new;

print $q->header;
      $q->h1('you submitted the change!');
print $q->p("$_ = " . CGI::escapeHTML($q->param($_) // '-?-')) for qw<name phone day>;
print $q->end_html;