#!/usr/bin/perl
use CGI;
use strict;

sub read_ml {
	my ($path) = @_;
	my @addresses;

	if(open(ML, $path)) {
		while(<ML>) {
			chop;
			next if /^#/;
			push(@addresses, $_);
		}
		close ML;
	}
	@addresses;
}

## MAIN

my $cgi = new CGI;
my @addrs = &read_ml("/var/spool/ml/testml");
print $cgi->header, $cgi->start_html("Test ML");
print "<ul>\n";
my $i;
for($i=0; $i<=$#addrs; $i++) {
	print "<li><a href=\"mailto:$addrs[$i]\">$addrs[$i]</a>\n";
}
print "</ul>\n";
print $cgi->end_html;