#!/usr/bin/perl use strict; use warnings; use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser/; my $count = 3; my $line; my @list; my $ifile = "/etc/passwd"; my %user; my %name; my $key; open(my $IN, "<", $ifile); while(<$IN>) { chomp; my @data = split(/:/); $user{$data[0]} = $data[2]; my @tmp = split(/,/, $data[4]); $name{$data[0]} = $tmp[0]; } close($IN); print header(), start_html( -title=>'Account Summary'); print< Account Summary

Account Summary Gateway

Select which month(s)you would like to summarize:

This Month
Last Month

Select one of the $count accounts to summarize:

EOHTML