Or, using the handy function in CGI.pm,

use CGI qw(:standard);
# stuff 

open FILE, $filename or die "Can't open $filename: $!\n";
my @lines = <FILE>;
chomp @lines;
close FILE;
# more stuff


print scrolling_list(-name=>'foo',
                        -values=>\@lines);
[download]

Philosophy can be made out of anything. Or less -- Jerry A. Fodor