Package MailConfig;
use strict;
@MailConfig::fields=qw /to from subject message/;

##</code><code>##

use strict;
require "config_mail.pl";

...your print code...
<tr>
<td>From:</td>
<td><select name='$MailConfig::fields[1]" size="1">
more code...
            </select></td>
</tr>
<tr>
<td>Subject:</td>
<td><input type="text" name="$MailConfig::fields[2]" size="24"></t
+d>