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);