$firstname=param('firstname'); 
...
print MAIL "From: $from ($firstname)\n";