Perl CGI Date and Time picker with auto populate with current date and time
<p>I've created a CGI form using perl, everything works really good, except I'm having a hard time finding a solution as to how I can get the current time and date filled in the form while giving the user the option to change the input with a date and time picker. here is pieces of code I've written:</p>

<pre><code>sub output_form {
    my ($q) = @_;
    print $q-&gt;start_form(
        -name =&gt; 'main',
        -method =&gt; 'POST',
    );
    print $q-&gt;start_table;
    print $q-&gt;Tr(
      $q-&gt;td('Update#:'),
      $q-&gt;td(
        $q-&gt;textfield(-name =&gt; "update_num", -size =&gt; 02)
      )
    );
     print $q-&gt;Tr(
      $q-&gt;td('Date:'),
      $q-&gt;td(
        $q-&gt;textfield(-name =&gt; "date", -size =&gt; 50)
      )
    );
     print $q-&gt;Tr(
      $q-&gt;td('Time:'),
      $q-&gt;td(
        $q-&gt;textfield(-name =&gt; "time", -size =&gt; 50)
      )
    );
</code></pre>