view release on metacpan or  search on metacpan

Pilot/tasklist.pl  view on Meta::CPAN

    
    print $q->startform;
    
    print '<TABLE>';
    print '<TR ALIGN="left">';
    print     '<TH WIDTH="5%">';
    print     '<TH WIDTH="60%">';
    
    print '<TR>';
    print '<TD>Priority:<TD>';
    print $q->popup_menu(-name    => 'Priority',
                         -values  => [ '0','1', '2', '3'  ],
                         -default => $tasks[$index]{"Priority"} - 1);
    print '</TR>';
    
    print '<TR>';
    print '<TD>Description:<TD>';
    print $q->textfield(-name     => 'Description',
                        -size     => 80,
                        -value    => $tasks[$index]{"Description"});
    print '</TR>';