#! /usr/bin/perl -wT

use strict;
use warnings;

# grab details from files

my ($file, $account);
my @file = `ls /var/log/accounts/`;
foreach $file (@file) {
  chomp  $file;
  $file = "/var/log/accounts/$file";
  open(FILE, "<$file") || die;
  my @account=<FILE>;
  close(FILE);
  foreach $account (@account) {
  chomp $account;
my ($fullname,$username,$password,$domain,$service,$email,$updates,$ipaddr) = split(/,/, $account);