Also this: my @titlelist; open FILE, "<$ENV{'DOCUMENT_ROOT'}/data/vault/titlelist.txt" or die $!; @titlelist = ; close FILE; print br() x 3; print start_form( action=>'/cgi-bin/admin.pl' ); print table( {class=>'user_form'}, Tr( td( 'Πές μου τι θα ήθελες:' ), td( popup_menu( -name=>'title' -values=>\@titlelist ))), Tr( td( 'Κάτι άλλο που θα ήθελες να σχολιάσεις?' ), td( textarea( -name=>'remark', -rows=>4, -columns=>25 ))), Tr( td( 'Το τηλέφωνο επικοινωνίας σου για επιβεβαίωση είναι:' ), td( textfield( -name=>'phone' ))), Tr( td( a( {href=>'/cgi-bin/show.pl?name=showbook'}, font( {size=>3, color=>'yellow'}, 'Εμφάνιση!' ))), td( submit( 'Αποστολή!' ))) ); print hidden(-name=>'date', -value=>$date); print hidden(-name=>'host', -value=>$host); print end_form();