#!/usr/bin/perl -wT # myprint.cgi # always use strict use strict; # configuration variables my $path = '/usr/your/home/logs'; my $name_file = 'names.txt'; # print the header line, and html stuff print < Names

Names list

HTML # get data from a file into an array and print it my @file_data = get_file_data("$path/$name_file"); print "

Name: $_\n

" for @file_data; # finish neatly print"\n\n" # get data from a file get_file_data { my $file = shift; open (FILE, "<$file") || die "Unable to read from $file: $!"; my @data = ; close FILE; return @data; }