I have a much better idea. Instead of trying to manually print out every line of html, use HTML::Template and seperate the html from the perl. Then you could replace the above with __output.tmpl__

<INPUT TYPE='HIDDEN' NAME='g_emplid' VALUE='<TMPL_VAR NAME="g_emplid">
+'>
<INPUT TYPE='HIDDEN' NAME='g_oprid' VALUE='<TMPL_VAR NAME="g_oprid">'>
<INPUT TYPE='HIDDEN' NAME='g_LogonName' VALUE='<TMPL_VAR NAME="g_Logon
+3Name">'>
<INPUT TYPE='HIDDEN' NAME='g_projects' VALUE='<TMPL_VAR NAME="g_projec
+ts2">'>
<INPUT TYPE='HIDDEN' NAME='g_projects_valid' VALUE='<TMPL_VAR NAME="g_
+projects_valid">'>
<INPUT TYPE='HIDDEN' NAME='g_projects_valid' VALUE='<TMPL_VAR NAME="g_
+projects_valid">'>
[download]

__output.pl__

use HTML::Template;
my $h = new HTML::Template(filename=>'output.tmpl');
$h->param
(
    g_emplid          => $g_emplid,
    g_oprid           => $g_oprid,
    g_LogonName       => $g_LogonName,
    g_projects        => $g_projects,
    g_projects_valid  => $g_projects_valid,
    g_projects_valid  => $g_projects_valid,
);

print $h->output;
[download]