die "Horribly" unless param 'firstname' =~ /^([a-zA-Z])+$/;
my $u_firstname = $1;
die "Horribly" unless param 'lastname'  =~ /^([a-zA-Z])+$/;
my $u_lastname  = $1;