use strict;
use warnings;

my $your_email_address = q{fred.bloggs@worthy.com};
my $your_name          = q{Fred Bloggs};
print <<EOT;
<input type="hidden" name="your_email_address" value="$your_email_address">
<input type="hidden" name="your_name" value="$your_name">
EOT